diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-15 12:58:00 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-15 12:58:00 -0500 |
| commit | 961339f0bd28c0f30bdb3c995a27927def8a991e (patch) | |
| tree | 179866ee379f97efa3f72460f6df4b0f9bfe3ad1 /lib/help_screen.ml | |
| parent | 9f3d3d40ddf6db70f8395adf4290241f7c5735db (diff) | |
| download | stitch-961339f0bd28c0f30bdb3c995a27927def8a991e.tar.gz stitch-961339f0bd28c0f30bdb3c995a27927def8a991e.tar.bz2 stitch-961339f0bd28c0f30bdb3c995a27927def8a991e.zip | |
Update Note view
Diffstat (limited to '')
| -rw-r--r-- | lib/help_screen.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/help_screen.ml b/lib/help_screen.ml index 0726be3..b07cad2 100644 --- a/lib/help_screen.ml +++ b/lib/help_screen.ml @@ -23,10 +23,10 @@ let general_help_menu = ; "Down", "Ctrl-n, j" ; "Up", "Ctrl-p, k" ; "Regexp", "r" - ; "Note view", "1" - ; "Todo view", "2" - ; "Done view", "3" - ; "Edit", "Enter, e" + ; "Note View", "1" + ; "Todo View", "2" + ; "Done View", "3" + ; "Edit File", "Enter, e" ] @@ -83,6 +83,7 @@ let rec render t ({ go_back } as state) = info_img </> general_img </> note_img </> todo_img </> done_img in Common.Term.image t img; + (* TODO: Add controls for scroll *) match Common.Term.event t with | `End | `Key (`Escape, []) | `Key (`ASCII 'q', []) | `Key (`ASCII 'C', [ `Ctrl ]) -> () | `Resize _ -> render t state |