stitch

Note taking for messy minimalists

commit ebb302498593f15330affa732c5206e31d882d8f
parent fa2582d562118dc1ceccd01ede8d0d7e80d71a29
Author: Marc Coquand <marc@mccd.space>
Date:   Wed, 15 May 2024 15:25:36 -0500

Rename screen -> Prompt

Diffstat:
M
lib/done.ml
 | 
4
++--
M
lib/headlines.ml
 | 
6
+++---
R
lib/input_screen.ml -> lib/input_prompt.ml
 | 
0

M
lib/stitched_article.ml
 | 
6
+++---
M
lib/todos.ml
 | 
4
++--

5 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/lib/done.ml b/lib/done.ml
@@ -74,7 +74,7 @@ let rec render
     render t { state with pos = 0, min y content_end }
   | `Key (`ASCII '?', []) -> Help_screen.render t { go_back = (fun () -> render t state) }
   | `Key (`ASCII 'r', []) ->
-    let (input_state : Input_screen.state) =
+    let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
       ; prompt = "REGEXP: "
@@ -95,7 +95,7 @@ let rec render
             render t state)
       }
     in
-    Input_screen.render t input_state
+    Input_prompt.render t input_state
   | `Key (`ASCII '1', []) -> goto_headlines (fun () -> render t state)
   | `Key (`ASCII '2', []) -> goto_todo (fun () -> render t state)
   | `Key (`ASCII 'g', []) ->
diff --git a/lib/headlines.ml b/lib/headlines.ml
@@ -1,7 +1,7 @@
 module Grep = Grep
 module Common = Common
 open Notty
-module Input_screen = Input_screen
+module Input_prompt = Input_prompt
 module Stitched_article = Stitched_article
 module Help_screen = Help_screen
 
@@ -98,7 +98,7 @@ let rec render
       ; goto_done_view
       }
   | `Key (`ASCII 'r', []) ->
-    let (input_state : Input_screen.state) =
+    let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
       ; prompt = "REGEXP: "
@@ -116,7 +116,7 @@ let rec render
             render t state)
       }
     in
-    Input_screen.render t input_state
+    Input_prompt.render t input_state
   | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down ()
   | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up ()
   | `Key (`Arrow d, _) ->
diff --git a/lib/input_screen.ml b/lib/input_prompt.ml
diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml
@@ -1,7 +1,7 @@
 module Grep = Grep
 module Common = Common
 open Notty
-module Input_screen = Input_screen
+module Input_prompt = Input_prompt
 module Help_screen = Help_screen
 
 type state =
@@ -58,7 +58,7 @@ let rec render
   | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down ()
   | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up ()
   | `Key (`ASCII 'r', []) ->
-    let (input_state : Input_screen.state) =
+    let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
       ; prompt = "REGEXP: "
@@ -100,7 +100,7 @@ let rec render
             render t state)
       }
     in
-    Input_screen.render t input_state
+    Input_prompt.render t input_state
   | `Key (`ASCII '?', []) -> Help_screen.render t { go_back = (fun () -> render t state) }
   | `Key (`ASCII '2', []) -> goto_todos_view (fun () -> render t state)
   | `Key (`ASCII '3', []) -> goto_done_view (fun () -> render t state)
diff --git a/lib/todos.ml b/lib/todos.ml
@@ -86,7 +86,7 @@ let rec render
       ; content_pretty = Array.of_list content_pretty
       }
   | `Key (`ASCII 'r', []) ->
-    let (input_state : Input_screen.state) =
+    let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
       ; prompt = "REGEXP: "
@@ -107,7 +107,7 @@ let rec render
             render t state)
       }
     in
-    Input_screen.render t input_state
+    Input_prompt.render t input_state
   | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down ()
   | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up ()
   | `Key (`ASCII 't', []) ->