stitch

Note taking for messy minimalists

commit 12ba5ed258b3a1ff30c3ece030e8eeed0dc417e9
parent b2c2fda8005b3e20669e7f87f5ee7d1372de4c7b
Author: Marc Coquand <marc@mccd.space>
Date:   Sat, 18 May 2024 11:18:52 -0500

Prompt: Fix visual

Diffstat:
M
lib/done.ml
 | 
2
+-
M
lib/headlines.ml
 | 
2
+-
M
lib/input_prompt.ml
 | 
16
+++++++++++-----
M
lib/stitched_article.ml
 | 
2
+-
M
lib/todos.ml
 | 
2
+-

5 files changed, 15 insertions(+), 9 deletions(-)
diff --git a/lib/done.ml b/lib/done.ml
@@ -80,7 +80,7 @@ let rec render
     let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
-      ; prompt = "REGEXP: "
+      ; prompt = "REGEXP"
       ; on_enter =
           (fun tag ->
             let content = Grep.get_tagged_done tag () |> Grep.parse_todo_string in
diff --git a/lib/headlines.ml b/lib/headlines.ml
@@ -104,7 +104,7 @@ let rec render
     let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
-      ; prompt = "REGEXP: "
+      ; prompt = "REGEXP"
       ; on_enter =
           (fun tag ->
             let content = Grep.get_tagged_headlines tag () |> Grep.parse_headlines in
diff --git a/lib/input_prompt.ml b/lib/input_prompt.ml
@@ -10,16 +10,22 @@ type state =
   ; screen : I.t
   }
 
-let rec render t ({ user_input; on_enter; on_cancel; screen; prompt } as state) =
-  let _, size_y = Common.Term.size t in
-  Common.Term.cursor t (Some (String.length user_input + String.length prompt, size_y));
+let rec render t ({ user_input; on_enter; on_cancel; prompt; screen } as state) =
+  let size_x, size_y = Common.Term.size t in
+  Common.Term.cursor
+    t
+    (Some (String.length user_input + String.length prompt + 3, size_y));
   let img =
     let open I in
-    I.strf "%s%s" prompt user_input |> I.pad ~l:0 ~t:(size_y - 1) </> screen
+    I.strf " %s " ~attr:(A.st A.reverse) prompt
+    <|> I.strf " %s%s" user_input (String.make size_x ' ')
+    |> I.pad ~l:0 ~t:(size_y - 1)
+    </> screen
   in
   Common.Term.image t img;
   match Common.Term.event t with
-  | `End | `Key (`ASCII 'G', [ `Ctrl ]) | `Key (`ASCII 'C', [ `Ctrl ]) -> on_cancel ()
+  | `End | `Key (`Escape, []) | `Key (`ASCII 'G', [ `Ctrl ]) | `Key (`ASCII 'C', [ `Ctrl ])
+    -> on_cancel ()
   | `Key (`Enter, []) -> on_enter user_input
   | `Key (`Backspace, []) ->
     if String.equal "" user_input
diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml
@@ -61,7 +61,7 @@ let rec render
     let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
-      ; prompt = "REGEXP: "
+      ; prompt = "REGEXP"
       ; on_enter =
           (fun tag ->
             try
diff --git a/lib/todos.ml b/lib/todos.ml
@@ -92,7 +92,7 @@ let rec render
     let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
-      ; prompt = "REGEXP: "
+      ; prompt = "REGEXP"
       ; on_enter =
           (fun tag ->
             let content = Grep.get_tagged_todo tag () |> Grep.parse_todo_string in