stitch

Note taking for messy minimalists

commit 29c06ecd1b2d173f039fd63039b0ccac07c42f2f
parent 8dc118d9bf685d96022a010fb2a20d724c40b5cf
Author: Marc Coquand <marc@mccd.space>
Date:   Tue, 14 May 2024 19:15:00 -0500

Manual updates

Diffstat:
M
lib/help_screen.ml
 | 
11
++++++-----

1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lib/help_screen.ml b/lib/help_screen.ml
@@ -6,9 +6,9 @@ type state = { go_back : unit -> unit }
 let info = [ "STITCH"; "Note composing tool" ]
 
 let render_info =
-  let title = I.strf ~attr:A.(st bold) "%s" "STITCH" |> I.pad ~l:2 ~t:1 in
+  let title = I.strf ~attr:A.(st bold) "%s" "STITCH" |> I.pad ~l:2 ~t:0 in
   let description =
-    I.strf ~attr:A.(st bold) "%s" "Small Note Composer" |> I.pad ~l:2 ~t:2
+    I.strf ~attr:A.(st bold) "%s" "Small Note Composer" |> I.pad ~l:2 ~t:1
   in
   let keybindings = I.strf ~attr:A.(st bold) "%s" "Keybindings" |> I.pad ~l:2 ~t:4 in
   let open I in
@@ -19,9 +19,10 @@ let help_menu =
   [ "Toggle this menu", "?"
   ; "Exit", "Ctrl-c, q, Esc"
   ; "Toggle collapsed view", "@"
-  ; "Go down", "Ctrl-n, j"
-  ; "Go up", "Ctrl-p, k"
+  ; "Down", "Ctrl-n, j"
+  ; "Up", "Ctrl-p, k"
   ; "Grep", "s"
+  ; "Edit", "Enter, e"
   ]
 
 
@@ -34,7 +35,7 @@ let render_help_menu start_y =
   let elements =
     List.mapi
       (fun i (explanation, keybinding) ->
-        let padding = pad explanation 30 in
+        let padding = pad explanation 27 in
         I.strf "%s%s" padding keybinding |> I.pad ~l:2 ~t:(i + start_y))
       help_menu
   in