From 091cc7925e811c543bb3a55bc34dc439630fb063 Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Thu, 16 May 2024 08:39:54 -0500 Subject: Fix editor opening --- lib/done.ml | 2 +- lib/headlines.ml | 2 +- lib/stitched_article.ml | 2 +- lib/todos.ml | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) (limited to 'lib') 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 -- cgit v1.2.3