Fix front matter regexp and catch String.sub exception

2017-11-15 22:04:50 +00:00 · 2017-11-15 22:04:50 +00:00 · f8ab384f0d
commit f8ab384f0d
parent ce1f3e3a3b
1 changed files with 4 additions and 1 deletions
--- a/src/core/note.ml
+++ b/src/core/note.ml
@ -39,10 +39,13 @@ let front_matter_body_split s =
     List.(nth l 0, nth l 1)
  | _ ->
     if Re_str.(string_match (regexp ".*:.*")) s 0
-     then match Re_str.(bounded_split (regexp "^\n\n")) s 2 with
+     then match Re_str.(bounded_split (regexp "\n\n")) s 2 with
          | front::body::[] -> (front, body)
          | _ -> ("", s)
     else ("", s)
+  | exception Invalid_argument _ ->
+     prerr_endline @@ "Not enough characters in: " ^ s;
+     ("", s)

 let of_string s =
  let (front_matter, body) = front_matter_body_split s in