aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-19 08:50:31 -0500
committerMarc Coquand <marc@mccd.space>2024-05-19 08:50:31 -0500
commitc3a52f259f3a3b70ab25fba98ab7450e0fa69e67 (patch)
tree24b4994f2d511d12a2381a2a208b99b9f190baad
parent7a368aa5dc39bc3550675a82558513c58d9603bd (diff)
downloadstitch-c3a52f259f3a3b70ab25fba98ab7450e0fa69e67.tar.gz
stitch-c3a52f259f3a3b70ab25fba98ab7450e0fa69e67.tar.bz2
stitch-c3a52f259f3a3b70ab25fba98ab7450e0fa69e67.zip
Change headers for views
Diffstat (limited to '')
-rw-r--r--lib/done.ml2
-rw-r--r--lib/headlines.ml2
-rw-r--r--lib/help_screen.ml12
-rw-r--r--lib/stitched_article.ml2
-rw-r--r--lib/todos.ml2
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 =