diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-19 08:50:31 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-19 08:50:31 -0500 |
| commit | c3a52f259f3a3b70ab25fba98ab7450e0fa69e67 (patch) | |
| tree | 24b4994f2d511d12a2381a2a208b99b9f190baad | |
| parent | 7a368aa5dc39bc3550675a82558513c58d9603bd (diff) | |
| download | stitch-c3a52f259f3a3b70ab25fba98ab7450e0fa69e67.tar.gz stitch-c3a52f259f3a3b70ab25fba98ab7450e0fa69e67.tar.bz2 stitch-c3a52f259f3a3b70ab25fba98ab7450e0fa69e67.zip | |
Change headers for views
Diffstat (limited to '')
| -rw-r--r-- | lib/done.ml | 2 | ||||
| -rw-r--r-- | lib/headlines.ml | 2 | ||||
| -rw-r--r-- | lib/help_screen.ml | 12 | ||||
| -rw-r--r-- | lib/stitched_article.ml | 2 | ||||
| -rw-r--r-- | lib/todos.ml | 2 |
5 files changed, 10 insertions, 10 deletions
diff --git a/lib/done.ml b/lib/done.ml index aaf819d..a8b4750 100644 --- a/lib/done.ml +++ b/lib/done.ml @@ -14,7 +14,7 @@ type state = ; output : string option } -let title = I.strf ~attr:A.(st bold) "%s" "Done View" |> I.pad ~l:0 ~t:0 +let title = I.strf ~attr:A.(st bold) "%s" "Done" |> I.pad ~l:0 ~t:0 let content_start = 2 let init ~goto_todo ~goto_headlines = diff --git a/lib/headlines.ml b/lib/headlines.ml index 2f9ebe4..eaa68d9 100644 --- a/lib/headlines.ml +++ b/lib/headlines.ml @@ -40,7 +40,7 @@ let init ~goto_done_view ~goto_todos_view ~regexp = }) -let title = I.strf ~attr:A.(st bold) "%s" "Note View" |> I.pad ~l:0 ~t:0 +let title = I.strf ~attr:A.(st bold) "%s" "Notes" |> I.pad ~l:0 ~t:0 (* TODO: Add page title *) let rec render diff --git a/lib/help_screen.ml b/lib/help_screen.ml index 4c607e2..0759d26 100644 --- a/lib/help_screen.ml +++ b/lib/help_screen.ml @@ -26,9 +26,9 @@ let general_help_menu = ; "Down", "Ctrl-n, j" ; "Up", "Ctrl-p, k" ; "Regexp Search", "s" - ; "Note View", "1" - ; "Todo View", "2" - ; "Done View", "3" + ; "Notes", "1" + ; "Todo", "2" + ; "Done", "3" ; "Run Shell Command", "!" ; "Edit File in $EDITOR", "Enter, e" ] @@ -69,19 +69,19 @@ let rec render t ({ go_back } as state) = let note_length, note_img = render_menu ~menu:note_view_menu - ~title:"Note View" + ~title:"Notes" ~start_y:(general_length + info_length + 2) in let todo_length, todo_img = render_menu ~menu:todo_view_menu - ~title:"Todo View" + ~title:"Todo" ~start_y:(note_length + general_length + info_length + 3) in let _, done_img = render_menu ~menu:done_view_menu - ~title:"Done View" + ~title:"Done" ~start_y:(todo_length + note_length + general_length + info_length + 4) in info_img </> general_img </> note_img </> todo_img </> done_img diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml index f9fa45a..d338912 100644 --- a/lib/stitched_article.ml +++ b/lib/stitched_article.ml @@ -16,7 +16,7 @@ type state = ; tag : string } -let title = I.strf ~attr:A.(st bold) "%s" "Note View" |> I.pad ~l:0 ~t:0 +let title = I.strf ~attr:A.(st bold) "%s" "Notes" |> I.pad ~l:0 ~t:0 let content_start = 1 (* TODO: Use grep -l to filter notes by regexp and rerender those files*) diff --git a/lib/todos.ml b/lib/todos.ml index 6f8bef3..f657d6c 100644 --- a/lib/todos.ml +++ b/lib/todos.ml @@ -14,7 +14,7 @@ type state = ; tag : string } -let title = I.strf ~attr:A.(st bold) "%s" "Todo View" |> I.pad ~l:0 ~t:0 +let title = I.strf ~attr:A.(st bold) "%s" "Todo" |> I.pad ~l:0 ~t:0 let content_start = 2 let init ~goto_done ~goto_headlines = |