aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/help_screen.ml11
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