From 0042ffe8ee737c89b66a566b4bf71b78b0836249 Mon Sep 17 00:00:00 2001 From: Federico Igne Date: Fri, 12 Jan 2024 14:15:52 +0100 Subject: feat: allow backspace and delete to span multiple lines in insert mode --- lib/editor.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/editor.ml') 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 = let open Command in let open Action in function - | Simple Backspace -> Buffer.Action.delete_before ~n:1 |> on_focused_buffer | Simple Arrow_down -> Buffer.Action.move_down |> on_focused_buffer | Simple Arrow_left -> Buffer.Action.move_left |> on_focused_buffer | Simple Arrow_right -> Buffer.Action.move_right |> on_focused_buffer | Simple Arrow_up -> Buffer.Action.move_up |> on_focused_buffer + | Simple Backspace -> + Buffer.Action.delete_before ~cross_lines:true ~n:1 |> on_focused_buffer | Simple (Ctrl 'Q') -> quit 0 - | Simple Delete -> Buffer.Action.delete_after ~n:1 |> on_focused_buffer + | Simple Delete -> + Buffer.Action.delete_after ~cross_lines:true ~n:1 |> on_focused_buffer | Simple Enter -> Buffer.Action.newline |> on_focused_buffer | Simple Esc -> (Buffer.Action.move_left |> on_focused_buffer) *> set_mode Normal @@ -223,7 +225,7 @@ let handle_normal_command = (* | Key 's' -> *) (* (Buffer.Action.delete_after |> on_focused_buffer_or_new) *) (* *> set_mode Insert *) - (* | Key 'x' -> Buffer.Action.delete_after |> on_focused_buffer_or_new *) + (* | Key 'x' | Delete -> Buffer.Action.delete_after |> on_focused_buffer_or_new *) (* | Key 'X' -> Buffer.Action.delete_before |> on_focused_buffer_or_new *) (* | Key '$' -> Buffer.Action.eol |> on_focused_buffer_or_new *) | Shortcut (_, n, Change, Line) -> -- cgit v1.2.3