From 2344fd375cf8b3cf0efba8177d3794523fae9a80 Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Sat, 18 May 2024 09:56:05 -0500 Subject: Update keybindings --- lib/done.ml | 2 +- lib/headlines.ml | 4 ++-- lib/help_screen.ml | 4 ++-- lib/stitched_article.ml | 4 ++-- lib/todos.ml | 2 +- 5 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lib/done.ml b/lib/done.ml index a93f88b..a7bfd61 100644 --- a/lib/done.ml +++ b/lib/done.ml @@ -76,7 +76,7 @@ let rec render | `Mouse ((`Press _ | `Drag), (_, y), _) -> render t { state with pos = 0, min y content_end } | `Key (`ASCII '?', []) -> Help_screen.render t { go_back = (fun () -> render t state) } - | `Key (`ASCII 'r', []) -> + | `Key (`ASCII 's', []) -> let (input_state : Input_prompt.state) = { screen = img ; user_input = "" diff --git a/lib/headlines.ml b/lib/headlines.ml index 04b4267..ea6664f 100644 --- a/lib/headlines.ml +++ b/lib/headlines.ml @@ -79,7 +79,7 @@ let rec render | `Key (`ASCII '?', []) -> Help_screen.render t { go_back = (fun () -> render t state) } | `Key (`ASCII '2', []) -> goto_todos_view (fun () -> render t state) | `Key (`ASCII '3', []) -> goto_done_view (fun () -> render t state) - | `Key (`ASCII 's', []) -> + | `Key (`ASCII 'f', []) -> let content = Array.map (fun (file_name, _) -> Grep.get_full_file_content_content file_name) @@ -100,7 +100,7 @@ let rec render ; goto_todos_view ; goto_done_view } - | `Key (`ASCII 'r', []) -> + | `Key (`ASCII 's', []) -> let (input_state : Input_prompt.state) = { screen = img ; user_input = "" diff --git a/lib/help_screen.ml b/lib/help_screen.ml index 4dc527e..1995faf 100644 --- a/lib/help_screen.ml +++ b/lib/help_screen.ml @@ -25,7 +25,7 @@ let general_help_menu = ; "Exit", "Ctrl-c, q, Esc" ; "Down", "Ctrl-n, j" ; "Up", "Ctrl-p, k" - ; "Regexp", "r" + ; "Regexp Search", "s" ; "Note View", "1" ; "Todo View", "2" ; "Done View", "3" @@ -51,7 +51,7 @@ let render_menu ~menu ~title ~start_y = 1 + List.length elements, List.fold_left (fun sum el -> el sum) keybindings elements -let note_view_menu = [ "Toggle Stitch", "s" ] +let note_view_menu = [ "Toggle Full-View Mode", "f" ] let todo_view_menu = [ "Toggle Done", "Ctrl-t"; "Refresh", "g" ] let done_view_menu = [ "Toggle Todo", "Ctrl-t"; "Refresh", "g" ] diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml index f42812f..d512b39 100644 --- a/lib/stitched_article.ml +++ b/lib/stitched_article.ml @@ -52,12 +52,12 @@ let rec render | `Down -> scroll_down () | `Up -> scroll_up ()) | `Resize _ -> render t state - | `Key (`ASCII 's', []) -> go_back () + | `Key (`ASCII 'f', []) -> go_back () | `Mouse ((`Press _ | `Drag), (_, y), _) -> render t { state with pos = 0, min y content_length } | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down () | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up () - | `Key (`ASCII 'r', []) -> + | `Key (`ASCII 's', []) -> let (input_state : Input_prompt.state) = { screen = img ; user_input = "" diff --git a/lib/todos.ml b/lib/todos.ml index 54a0d95..e5b0084 100644 --- a/lib/todos.ml +++ b/lib/todos.ml @@ -88,7 +88,7 @@ let rec render ; content = content |> Array.of_list ; content_pretty = Array.of_list content_pretty } - | `Key (`ASCII 'r', []) -> + | `Key (`ASCII 's', []) -> let (input_state : Input_prompt.state) = { screen = img ; user_input = "" -- cgit v1.2.3