Manual updates

1 files changed, 6 insertions, 5 deletions

diff --git a/lib/help_screen.ml b/lib/help_screen.ml
index 2f6fbaa..223a863 100644
--- 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