aboutsummaryrefslogtreecommitdiff
path: root/lib/stitched_article.ml
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-15 15:25:36 -0500
committerMarc Coquand <marc@mccd.space>2024-05-15 15:25:36 -0500
commitebb302498593f15330affa732c5206e31d882d8f (patch)
treeb874255b175974576a19789663f6532e4aa06239 /lib/stitched_article.ml
parentfa2582d562118dc1ceccd01ede8d0d7e80d71a29 (diff)
downloadstitch-ebb302498593f15330affa732c5206e31d882d8f.tar.gz
stitch-ebb302498593f15330affa732c5206e31d882d8f.tar.bz2
stitch-ebb302498593f15330affa732c5206e31d882d8f.zip
Rename screen -> Prompt
Diffstat (limited to 'lib/stitched_article.ml')
-rw-r--r--lib/stitched_article.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml
index 981258b..1698e68 100644
--- 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)