aboutsummaryrefslogtreecommitdiff
path: root/lib/done.ml
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-30 08:45:22 -0500
committerMarc Coquand <marc@mccd.space>2024-05-30 08:45:22 -0500
commit2c0f6e026acb2ecfc1c39d617f47d024e404bb9d (patch)
treea2d07acb5e12ebee1b68d325226c1ad85ef16f27 /lib/done.ml
parent4671c60b811fb25e5544de0506a0783dffef63aa (diff)
downloadstitch-2c0f6e026acb2ecfc1c39d617f47d024e404bb9d.tar.gz
stitch-2c0f6e026acb2ecfc1c39d617f47d024e404bb9d.tar.bz2
stitch-2c0f6e026acb2ecfc1c39d617f47d024e404bb9d.zip
Input Prompt: Implement left and right arrow
Diffstat (limited to 'lib/done.ml')
-rw-r--r--lib/done.ml6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/done.ml b/lib/done.ml
index 810ef90..18e7b89 100644
--- a/lib/done.ml
+++ b/lib/done.ml
@@ -108,7 +108,8 @@ let rec render
| `Key (`ASCII 's', []) ->
let (input_state : Input_prompt.state) =
{ screen = img
- ; user_input = ""
+ ; user_input_pre = ""
+ ; user_input_post = ""
; prompt = "REGEXP"
; on_enter =
(fun tag ->
@@ -152,7 +153,8 @@ let rec render
let selected_file = Grep.execution_directory ^ "/" ^ selected_file in
let (input_state : Input_prompt.state) =
{ screen = img
- ; user_input = ""
+ ; user_input_pre = ""
+ ; user_input_post = ""
; prompt = "COMMAND"
; on_enter =
(fun command ->