fix: timestamp parsing

logseq · Jan 18, 2022 · 84cd9a2 · 84cd9a2
1 parent 5ebe09e
commit 84cd9a2
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/lib/syntax/outline_inline.ml b/lib/syntax/outline_inline.ml
@@ -2,6 +2,8 @@ open! Prelude
 open Angstrom
 open Parsers
 
+let empty_plain = fun _ -> return (Inline.Plain "")
+
 let inline_choices config : Inline.t_with_pos Angstrom.t =
   let p =
     peek_char_fail >>= function
@@ -16,9 +18,12 @@ let inline_choices config : Inline.t_with_pos Angstrom.t =
     | 'c'
     | 'd' ->
       Inline.timestamp
+    | ' ' | '\t' | '\n' | '\r' | '\012' -> any_char >>= empty_plain
     | _ ->
-      take_till1 (fun c -> c = '#' || c = '[' || c = '(') >>= fun _ ->
-      return (Inline.Plain "")
+      take_till1 (fun c ->
+          c = '#' || c = '[' || c = '('
+        )
+      >>= empty_plain
   in
   (fun t -> (t, None)) <$> p