From c3a52f259f3a3b70ab25fba98ab7450e0fa69e67 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Sun, 19 May 2024 08:50:31 -0500
Subject: Change headers for views

---
 lib/done.ml             |  2 +-
 lib/headlines.ml        |  2 +-
 lib/help_screen.ml      | 12 ++++++------
 lib/stitched_article.ml |  2 +-
 lib/todos.ml            |  2 +-
 5 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'lib')

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 =
-- 
cgit v1.2.3