diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-30 08:45:22 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-30 08:45:22 -0500 |
| commit | 2c0f6e026acb2ecfc1c39d617f47d024e404bb9d (patch) | |
| tree | a2d07acb5e12ebee1b68d325226c1ad85ef16f27 /lib/headlines.ml | |
| parent | 4671c60b811fb25e5544de0506a0783dffef63aa (diff) | |
| download | stitch-2c0f6e026acb2ecfc1c39d617f47d024e404bb9d.tar.gz stitch-2c0f6e026acb2ecfc1c39d617f47d024e404bb9d.tar.bz2 stitch-2c0f6e026acb2ecfc1c39d617f47d024e404bb9d.zip | |
Input Prompt: Implement left and right arrow
Diffstat (limited to '')
| -rw-r--r-- | lib/headlines.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/headlines.ml b/lib/headlines.ml index 3c94f12..b8303c0 100644 --- a/lib/headlines.ml +++ b/lib/headlines.ml @@ -115,7 +115,8 @@ let rec render | `Key (`ASCII 'o', []) -> let (input_state : Input_prompt.state) = { screen = img - ; user_input = "" + ; user_input_pre = "" + ; user_input_post = "" ; prompt = "EXPORT TO" ; on_enter = (fun path -> @@ -164,7 +165,8 @@ let rec render | `Key (`ASCII 's', []) -> let (input_state : Input_prompt.state) = { screen = img - ; user_input = "" + ; user_input_post = "" + ; user_input_pre = "" ; prompt = "REGEXP" ; on_enter = (fun tag -> @@ -199,7 +201,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_post = "" + ; user_input_pre = "" ; prompt = "COMMAND" ; on_enter = (fun command -> |