diff options
Diffstat (limited to 'lib/editor.ml')
-rw-r--r-- | lib/editor.ml | 8 |
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) -> |