summaryrefslogtreecommitdiff
path: root/lib/editor.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/editor.ml')
-rw-r--r--lib/editor.ml8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/editor.ml b/lib/editor.ml
index 9078a09..2e031e1 100644
--- a/lib/editor.ml
+++ b/lib/editor.ml
@@ -186,13 +186,15 @@ let handle_insert_command =
186 let open Command in 186 let open Command in
187 let open Action in 187 let open Action in
188 function 188 function
189 | Simple Backspace -> Buffer.Action.delete_before ~n:1 |> on_focused_buffer
190 | Simple Arrow_down -> Buffer.Action.move_down |> on_focused_buffer 189 | Simple Arrow_down -> Buffer.Action.move_down |> on_focused_buffer
191 | Simple Arrow_left -> Buffer.Action.move_left |> on_focused_buffer 190 | Simple Arrow_left -> Buffer.Action.move_left |> on_focused_buffer
192 | Simple Arrow_right -> Buffer.Action.move_right |> on_focused_buffer 191 | Simple Arrow_right -> Buffer.Action.move_right |> on_focused_buffer
193 | Simple Arrow_up -> Buffer.Action.move_up |> on_focused_buffer 192 | Simple Arrow_up -> Buffer.Action.move_up |> on_focused_buffer
193 | Simple Backspace ->
194 Buffer.Action.delete_before ~cross_lines:true ~n:1 |> on_focused_buffer
194 | Simple (Ctrl 'Q') -> quit 0 195 | Simple (Ctrl 'Q') -> quit 0
195 | Simple Delete -> Buffer.Action.delete_after ~n:1 |> on_focused_buffer 196 | Simple Delete ->
197 Buffer.Action.delete_after ~cross_lines:true ~n:1 |> on_focused_buffer
196 | Simple Enter -> Buffer.Action.newline |> on_focused_buffer 198 | Simple Enter -> Buffer.Action.newline |> on_focused_buffer
197 | Simple Esc -> 199 | Simple Esc ->
198 (Buffer.Action.move_left |> on_focused_buffer) *> set_mode Normal 200 (Buffer.Action.move_left |> on_focused_buffer) *> set_mode Normal
@@ -223,7 +225,7 @@ let handle_normal_command =
223 (* | Key 's' -> *) 225 (* | Key 's' -> *)
224 (* (Buffer.Action.delete_after |> on_focused_buffer_or_new) *) 226 (* (Buffer.Action.delete_after |> on_focused_buffer_or_new) *)
225 (* *> set_mode Insert *) 227 (* *> set_mode Insert *)
226 (* | Key 'x' -> Buffer.Action.delete_after |> on_focused_buffer_or_new *) 228 (* | Key 'x' | Delete -> Buffer.Action.delete_after |> on_focused_buffer_or_new *)
227 (* | Key 'X' -> Buffer.Action.delete_before |> on_focused_buffer_or_new *) 229 (* | Key 'X' -> Buffer.Action.delete_before |> on_focused_buffer_or_new *)
228 (* | Key '$' -> Buffer.Action.eol |> on_focused_buffer_or_new *) 230 (* | Key '$' -> Buffer.Action.eol |> on_focused_buffer_or_new *)
229 | Shortcut (_, n, Change, Line) -> 231 | Shortcut (_, n, Change, Line) ->