aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-20 09:37:12 -0500
committerMarc Coquand <marc@mccd.space>2024-05-20 09:37:12 -0500
commit4c895f9e4a8607fb06c712aaca50a82d23eca05b (patch)
tree84bd1e9b0e2ae31ddbd33c51f665a4f494a0f942
parent6c54bef75d51070c6c171790f43e02f84641fc8a (diff)
downloadstitch-4c895f9e4a8607fb06c712aaca50a82d23eca05b.tar.gz
stitch-4c895f9e4a8607fb06c712aaca50a82d23eca05b.tar.bz2
stitch-4c895f9e4a8607fb06c712aaca50a82d23eca05b.zip
Reformat title with search; add to todo and done
-rw-r--r--lib/done.ml14
-rw-r--r--lib/headlines.ml2
-rw-r--r--lib/todos.ml14
3 files changed, 23 insertions, 7 deletions
diff --git a/lib/done.ml b/lib/done.ml
index cda47e4..ea5855a 100644
--- a/lib/done.ml
+++ b/lib/done.ml
@@ -15,7 +15,12 @@ type state =
; hide_file_name : bool
}
-let title = I.strf ~attr:A.(st bold) "%s" "Done" |> I.pad ~l:0 ~t:0
+let title ~tag =
+ match tag with
+ | "" -> I.strf ~attr:A.(st bold) "%s" "Done" |> I.pad ~l:0 ~t:0
+ | a -> I.strf ~attr:A.(st bold) "%s > %s" "Done" a |> I.pad ~l:0 ~t:0
+
+
let content_start = 2
let init ~goto_todo ~goto_headlines =
@@ -49,7 +54,7 @@ let rec render
; goto_todo
; output
; hide_file_name
- ; _
+ ; tag
} as state)
=
let x, y = pos in
@@ -75,7 +80,10 @@ let rec render
(content_pretty |> Basic.array_drop scroll)
in
let open I in
- Array.fold_left (fun sum el -> el </> sum) (title </> dot </> output_info) elements
+ Array.fold_left
+ (fun sum el -> el </> sum)
+ (title ~tag </> dot </> output_info)
+ elements
in
Common.Term.image t img;
let content_end = Array.length content_pretty + (content_start - 1) in
diff --git a/lib/headlines.ml b/lib/headlines.ml
index d8d6c9b..6482b47 100644
--- a/lib/headlines.ml
+++ b/lib/headlines.ml
@@ -45,7 +45,7 @@ let init ~goto_done_view ~goto_todos_view ~regexp =
let title ~tag =
match tag with
| "" -> I.strf ~attr:A.(st bold) "%s" "Notes" |> I.pad ~l:0 ~t:0
- | a -> I.strf ~attr:A.(st bold) "%s - %s" "Notes" a |> I.pad ~l:0 ~t:0
+ | a -> I.strf ~attr:A.(st bold) "%s > %s" "Notes" a |> I.pad ~l:0 ~t:0
let rec render
diff --git a/lib/todos.ml b/lib/todos.ml
index 0cdbc79..6c99e1c 100644
--- a/lib/todos.ml
+++ b/lib/todos.ml
@@ -15,7 +15,12 @@ type state =
; hide_file_name : bool
}
-let title = I.strf ~attr:A.(st bold) "%s" "Todo" |> I.pad ~l:0 ~t:0
+let title ~tag =
+ match tag with
+ | "" -> I.strf ~attr:A.(st bold) "%s" "Todo" |> I.pad ~l:0 ~t:0
+ | a -> I.strf ~attr:A.(st bold) "%s > %s" "Todo" a |> I.pad ~l:0 ~t:0
+
+
let content_start = 2
let init ~goto_done ~goto_headlines =
@@ -49,7 +54,7 @@ let rec render
; goto_done
; output
; hide_file_name
- ; _
+ ; tag
} as state)
=
let x, y = pos in
@@ -76,7 +81,10 @@ let rec render
(content_pretty |> Basic.array_drop scroll)
in
let open I in
- Array.fold_left (fun sum el -> el </> sum) (title </> dot </> output_info) elements
+ Array.fold_left
+ (fun sum el -> el </> sum)
+ (title ~tag </> dot </> output_info)
+ elements
in
Common.Term.image t img;
let content_end = Array.length content_pretty + (content_start - 1) in