aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-14 19:15:00 -0500
committerMarc Coquand <marc@mccd.space>2024-05-14 19:15:00 -0500
commit29c06ecd1b2d173f039fd63039b0ccac07c42f2f (patch)
treed12a59c5ea659194c5838b0db74f512b195d9a11
parent8dc118d9bf685d96022a010fb2a20d724c40b5cf (diff)
downloadstitch-29c06ecd1b2d173f039fd63039b0ccac07c42f2f.tar.gz
stitch-29c06ecd1b2d173f039fd63039b0ccac07c42f2f.tar.bz2
stitch-29c06ecd1b2d173f039fd63039b0ccac07c42f2f.zip
Manual updates
-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