aboutsummaryrefslogtreecommitdiff
path: root/lib/headlines.ml
diff options
context:
space:
mode:
authorMarc Coquand <marc@mccd.space>2024-05-18 13:19:26 -0500
committerMarc Coquand <marc@mccd.space>2024-05-18 13:19:26 -0500
commitf805a04bd0600653f71e5e4e006104892cf7b6b9 (patch)
treeb23c323682fafb9825e7bff5f753a4941ffc5e1b /lib/headlines.ml
parentfbbbdca67c79145d43d6fdd59202a36fddfc8cd0 (diff)
downloadstitch-f805a04bd0600653f71e5e4e006104892cf7b6b9.tar.gz
stitch-f805a04bd0600653f71e5e4e006104892cf7b6b9.tar.bz2
stitch-f805a04bd0600653f71e5e4e006104892cf7b6b9.zip
Add run command to done; fix content bug
Diffstat (limited to 'lib/headlines.ml')
-rw-r--r--lib/headlines.ml5
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/headlines.ml b/lib/headlines.ml
index 654e389..915ba22 100644
--- a/lib/headlines.ml
+++ b/lib/headlines.ml
@@ -152,11 +152,8 @@ let rec render
| `Down -> scroll_down ()
| _ -> render t state)
| `Key (`ASCII '!', []) ->
- let selected_file, _ = Array.get content content_position in
+ let selected_file, content = Array.get content content_position in
let selected_file = Grep.execution_directory ^ "/" ^ selected_file in
- let content =
- Array.map (fun (_, c) -> c) content |> Array.to_list |> String.concat "\n"
- in
let (input_state : Input_prompt.state) =
{ screen = img
; user_input = ""