diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-15 14:05:03 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-15 14:05:03 -0500 |
| commit | 3f696169ab1a560d94d169c1a5b744346da4c081 (patch) | |
| tree | d2aa5d6b0b9d70a594ede7795e423250a92729e1 /lib/help_screen.ml | |
| parent | 961339f0bd28c0f30bdb3c995a27927def8a991e (diff) | |
| download | stitch-3f696169ab1a560d94d169c1a5b744346da4c081.tar.gz stitch-3f696169ab1a560d94d169c1a5b744346da4c081.tar.bz2 stitch-3f696169ab1a560d94d169c1a5b744346da4c081.zip | |
Add done view + visual
Diffstat (limited to 'lib/help_screen.ml')
| -rw-r--r-- | lib/help_screen.ml | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/help_screen.ml b/lib/help_screen.ml index b07cad2..b74e91c 100644 --- a/lib/help_screen.ml +++ b/lib/help_screen.ml @@ -4,15 +4,18 @@ open Notty type state = { go_back : unit -> unit } let render_info = - let title = I.strf ~attr:A.(st bold ++ st underline) "%s" "Stitch" |> I.pad ~l:2 ~t:0 in + let title = I.strf ~attr:A.(st bold) "%s" "Stitch" |> I.pad ~l:0 ~t:0 in let description = I.strf ~attr:A.(st bold) "%s" - "Minimal Note Composer. Run with stitch --help for more info." - |> I.pad ~l:2 ~t:1 + "Minimal Note Composer. Run stitch --help for more info." + |> I.pad ~l:2 ~t:2 + in + let license = + I.strf "%s" "Made by Marc Coquand (https://mccd.space). Licensed under BSD-3." + |> I.pad ~l:2 ~t:4 in - let license = I.strf "%s" "Licensed under BSD-3" |> I.pad ~l:2 ~t:3 in let open I in 5, title </> description </> license |