From 4c895f9e4a8607fb06c712aaca50a82d23eca05b Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Mon, 20 May 2024 09:37:12 -0500 Subject: Reformat title with search; add to todo and done --- lib/done.ml | 14 +++++++++++--- lib/headlines.ml | 2 +- lib/todos.ml | 14 +++++++++++--- 3 files changed, 23 insertions(+), 7 deletions(-) (limited to 'lib') 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 -- cgit v1.2.3