aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-16 08:39:54 -0500
committerMarc Coquand <marc@mccd.space>2024-05-16 08:39:54 -0500
commit091cc7925e811c543bb3a55bc34dc439630fb063 (patch)
treeb502a59bf7eace899bd31c3d3c3dc66caa5365d2 /lib
parent1d1c0f73f95429384d0b571c0c844acf9073d32f (diff)
downloadstitch-091cc7925e811c543bb3a55bc34dc439630fb063.tar.gz
stitch-091cc7925e811c543bb3a55bc34dc439630fb063.tar.bz2
stitch-091cc7925e811c543bb3a55bc34dc439630fb063.zip
Fix editor opening
Diffstat (limited to '')
-rw-r--r--lib/done.ml2
-rw-r--r--lib/headlines.ml2
-rw-r--r--lib/stitched_article.ml2
-rw-r--r--lib/todos.ml2
4 files changed, 4 insertions, 4 deletions
diff --git a/lib/done.ml b/lib/done.ml
index 63e25a9..2c97dd3 100644
--- 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
index 36191bd..31be26c 100644
--- 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
index 1698e68..ce7bc0c 100644
--- 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
index 57f03a8..08c9a34 100644
--- 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