aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-18 09:56:05 -0500
committerMarc Coquand <marc@mccd.space>2024-05-18 09:56:05 -0500
commit2344fd375cf8b3cf0efba8177d3794523fae9a80 (patch)
treeda480822a3f36855a6ea56d4ea1533d185567d91
parent50ca4e102ffb3219e9ad22b717696dee9d0f4bd6 (diff)
downloadstitch-2344fd375cf8b3cf0efba8177d3794523fae9a80.tar.gz
stitch-2344fd375cf8b3cf0efba8177d3794523fae9a80.tar.bz2
stitch-2344fd375cf8b3cf0efba8177d3794523fae9a80.zip
Update keybindings
-rw-r--r--lib/done.ml2
-rw-r--r--lib/headlines.ml4
-rw-r--r--lib/help_screen.ml4
-rw-r--r--lib/stitched_article.ml4
-rw-r--r--lib/todos.ml2
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 = ""