Bug fixesHEADmain

1 files changed, 12 insertions, 6 deletions

diff --git a/lib/stitch.ml b/lib/stitch.ml
index 3383c83..453b7d1 100644
--- a/lib/stitch.ml
+++ b/lib/stitch.ml
@@ -4,13 +4,13 @@ module Todos = Todos
 module Headlines = Headlines
 
 let start (tag : string) () =
-  (* This is a rather funky state management that isn't maybe entirely functional.
+  (* This is a rather funky state management.
      What we do is store a function for each view that restores it's state. Since the render function is
      void -> void
 
      This allows us to remember the state of the view and restore it as we travel between different views.
 
-     It does create a rather funky, cyclical state though.
+     It does create a cyclical state though.
   *)
   if String.equal String.empty (String.trim Grep.execution_directory)
   then
@@ -19,12 +19,12 @@ let start (tag : string) () =
        STITCH_DIRECTORY to the absolute path of your notes. For example: \
        STITCH_DIRECTORY='/home/you/notes'."
   else (
-    print_endline "Launching";
     let term = Common.Term.create () in
     let restore_headline_state = ref (fun () -> ()) in
     let restore_done_state = ref (fun () -> ()) in
     let restore_todo_state = ref (fun () -> ()) in
-    (* DONE *)
+    (* INIT DONE VIEW *)
+    print_endline "DONE INIT";
     let goto_todo_from_done new_done_state =
       restore_done_state := new_done_state;
       !restore_todo_state ()
@@ -41,7 +41,8 @@ let start (tag : string) () =
               ~goto_todo:goto_todo_from_done
           in
           Done.render term done_state);
-    (* TODO *)
+    (* INIT TODO VIEW *)
+    print_endline "TODO INIT";
     let goto_done_from_todo new_todo_state =
       restore_todo_state := new_todo_state;
       !restore_done_state ()
@@ -58,6 +59,8 @@ let start (tag : string) () =
               ~goto_done:goto_done_from_todo
           in
           Todos.render term todo);
+    (* INIT HEADLINE VIEW *)
+    print_endline "HEADLINE INIT";
     let headline =
       Headlines.init
         ~goto_done_view:(fun new_state ->
@@ -68,4 +71,7 @@ let start (tag : string) () =
           !restore_todo_state ())
         ~regexp:tag
     in
-    Headlines.render term headline)
+    print_endline "Got render without error";
+    match headline with
+    | Ok headline -> Headlines.render term headline
+    | Error msg -> print_endline msg)