simple-learning

commit dfcd2510ce9e249ad50959891ae2aed57b591157
parent ee7063edf46bea5ece0c5135b1dce6cacbc418dc
Author: Andrew Laack <andrew@laack.co>
Date:   Sun, 30 Aug 2026 14:28:28 -0500

Fixed preformatted regression

Diffstat:
M
learning/bin/parser.ml
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/learning/bin/parser.ml b/learning/bin/parser.ml
@@ -20,7 +20,7 @@ let line_format_map format =
     | HeaderL2 -> "HeaderL2", 3
     | HeaderL3 -> "HeaderL3", 4
     | Embedded -> "Embedded", 3
-    | Preformatted -> "Preformatted", 3
+    | Preformatted -> "Preformatted", 0
     | Hidden -> "Hidden", 3
     | Quote -> "Quote", 2
     | Link -> "Link", 3
@@ -62,9 +62,13 @@ let is_h1 line preformatted = header_count line preformatted = 1 (* TODO: Make t
 let is_h2 line preformatted = header_count line preformatted = 2
 let is_h3 line preformatted = header_count line preformatted = 3
 
+let is_preformatted _ preformatted = 
+    preformatted
+
 let get_line_type line preformatted = 
     let funs = [
         (Hidden, is_hidden);
+        (Preformatted, is_preformatted);
         (ListItem, is_list);
         (Quote, is_quote);
         (Embedded, is_embedded_link);