diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-20 09:37:12 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-20 09:37:12 -0500 |
| commit | 4c895f9e4a8607fb06c712aaca50a82d23eca05b (patch) | |
| tree | 84bd1e9b0e2ae31ddbd33c51f665a4f494a0f942 /lib/headlines.ml | |
| parent | 6c54bef75d51070c6c171790f43e02f84641fc8a (diff) | |
| download | stitch-4c895f9e4a8607fb06c712aaca50a82d23eca05b.tar.gz stitch-4c895f9e4a8607fb06c712aaca50a82d23eca05b.tar.bz2 stitch-4c895f9e4a8607fb06c712aaca50a82d23eca05b.zip | |
Reformat title with search; add to todo and done
Diffstat (limited to 'lib/headlines.ml')
| -rw-r--r-- | lib/headlines.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |