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