stitch

Note taking for messy minimalists

commit 091cc7925e811c543bb3a55bc34dc439630fb063
parent 1d1c0f73f95429384d0b571c0c844acf9073d32f
Author: Marc Coquand <marc@mccd.space>
Date:   Thu, 16 May 2024 08:39:54 -0500

Fix editor opening

Diffstat:
M
lib/done.ml
 | 
2
+-
M
lib/headlines.ml
 | 
2
+-
M
lib/stitched_article.ml
 | 
2
+-
M
lib/todos.ml
 | 
2
+-

4 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/done.ml b/lib/done.ml
@@ -134,7 +134,7 @@ let rec render
     in
     let selected_file, _ = Array.get content content_position in
     let full_path_file = Grep.execution_directory ^ "/" ^ selected_file in
-    let full_args = Array.append (Array.of_list args) [| full_path_file |] in
+    let full_args = Array.append (Array.of_list args) [| "+1"; full_path_file |] in
     Common.Term.cursor t (Some (0, 0));
     let _ =
       Unix.create_process_env
diff --git a/lib/headlines.ml b/lib/headlines.ml
@@ -131,7 +131,7 @@ let rec render
     in
     let selected_file, _ = Array.get content content_position in
     let full_path_file = Grep.execution_directory ^ "/" ^ selected_file in
-    let full_args = Array.append (Array.of_list args) [| full_path_file |] in
+    let full_args = Array.append (Array.of_list args) [| "+1"; full_path_file |] in
     Common.Term.cursor t (Some (0, 0));
     let _ =
       Unix.create_process_env
diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml
@@ -117,7 +117,7 @@ let rec render
        it adds by removing the file_number *)
     let line_number_arg = "+" ^ Int.to_string (line_number - file_number_offset) in
     let full_args =
-      Array.append (Array.of_list args) [| line_number_arg; full_path_file |]
+      Array.append (Array.of_list args) [| ""; full_path_file; line_number_arg |]
     in
     Common.Term.cursor t (Some (0, 0));
     let _ =
diff --git a/lib/todos.ml b/lib/todos.ml
@@ -134,7 +134,7 @@ let rec render
     in
     let selected_file, _ = Array.get content content_position in
     let full_path_file = Grep.execution_directory ^ "/" ^ selected_file in
-    let full_args = Array.append (Array.of_list args) [| full_path_file |] in
+    let full_args = Array.append (Array.of_list args) [| "+1"; full_path_file |] in
     Common.Term.cursor t (Some (0, 0));
     let _ =
       Unix.create_process_env