diff options
Diffstat (limited to '')
| -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 |