From 9ffd8422de06adab52c0b7873a6ce181d82b5391 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Wed, 29 May 2024 09:51:57 -0500
Subject: Refresh when editing in stitched and headline view

---
 lib/headlines.ml | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/headlines.ml')

diff --git a/lib/headlines.ml b/lib/headlines.ml
index cefe31d..3c94f12 100644
--- a/lib/headlines.ml
+++ b/lib/headlines.ml
@@ -43,6 +43,11 @@ let title ~tag =
   | a -> I.strf ~attr:A.(st bold) "%s > %s" "Notes" a |> I.pad ~l:0 ~t:0
 
 
+let refresh regexp =
+  let content = Grep.get_tagged_headlines regexp () |> Grep.parse_headlines in
+  content, content |> Grep.pretty_format
+
+
 let rec render
   t
   ({ pos
@@ -252,7 +257,8 @@ let rec render
       match Unix.wait () with
       | _, _ ->
         Common.Term.cursor t None;
-        render t state
+        let content, content_pretty = refresh tag in
+        render t { state with content; content_pretty }
       (* Capture resizing events *)
       | exception Unix.Unix_error (Unix.EINTR, _, _) -> run_editor ()
       | exception Unix.Unix_error (_, _, _) -> failwith "ERROR"
-- 
cgit v1.2.3