diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-15 15:25:36 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-15 15:25:36 -0500 |
| commit | ebb302498593f15330affa732c5206e31d882d8f (patch) | |
| tree | b874255b175974576a19789663f6532e4aa06239 /lib/stitched_article.ml | |
| parent | fa2582d562118dc1ceccd01ede8d0d7e80d71a29 (diff) | |
| download | stitch-ebb302498593f15330affa732c5206e31d882d8f.tar.gz stitch-ebb302498593f15330affa732c5206e31d882d8f.tar.bz2 stitch-ebb302498593f15330affa732c5206e31d882d8f.zip | |
Rename screen -> Prompt
Diffstat (limited to '')
| -rw-r--r-- | lib/stitched_article.ml | 6 |
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) |