From 3f696169ab1a560d94d169c1a5b744346da4c081 Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Wed, 15 May 2024 14:05:03 -0500 Subject: Add done view + visual --- lib/help_screen.ml | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lib/help_screen.ml') 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 -- cgit v1.2.3