feat(mappings): Page Up/Down, Ctrl-F/B/D/U, Home, End

1 files changed, 38 insertions, 2 deletions

diff --git a/lib/editor.ml b/lib/editor.ml
index 96623f2..f91e66d 100644
--- a/lib/editor.ml
+++ b/lib/editor.ml
@@ -78,10 +78,11 @@ module Action = struct
     in
     modify ~f:aux
 
-  let get_mode s = (s.mode, s)
-  let set_mode m s = ((), { s with mode = m })
+  let get_mode e = (e.mode, e)
+  let set_mode m e = ((), { e with mode = m })
   let get_focused_buffer e = (e.buffer, e)
   let set_focused_buffer b e = ((), { e with buffer = Some b })
+  let get_terminal_size e = (e.term.size, e)
 
   let on_focused_buffer f =
     let f e = { e with buffer = Option.map ~f e.buffer } in
@@ -198,6 +199,25 @@ let handle_insert_command =
   | Simple Enter -> Buffer.Action.newline |> on_focused_buffer
   | Simple Esc ->
       (Buffer.Action.move_left |> on_focused_buffer) *> set_mode Normal
+  | Simple Page_down | Simple (Ctrl 'F') ->
+      fun e ->
+        let (n, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_down ~n) e
+  | Simple Page_up | Simple (Ctrl 'B') ->
+      fun e ->
+        let (n, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_up ~n) e
+  | Simple (Ctrl 'D') ->
+      fun e ->
+        let (r, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_down ~n:(r / 2)) e
+  | Simple (Ctrl 'U') ->
+      fun e ->
+        let (r, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_up ~n:(r / 2)) e
+  | Simple Home -> Buffer.Action.bol |> on_focused_buffer
+  | Simple End -> Buffer.Action.eol |> on_focused_buffer
+  | Simple Tab -> Buffer.Action.insert '\t' |> on_focused_buffer
   | Type k -> Buffer.Action.insert k |> on_focused_buffer
   | _ -> noop
 
@@ -219,6 +239,22 @@ let handle_normal_command =
   | Chord (_, n, Noop, _, To_eol) ->
       let n = Option.value ~default:1 n - 1 in
       Buffer.Action.(move_down ~n &> eol) |> on_focused_buffer
+  | Simple Page_down | Simple (Ctrl 'F') ->
+      fun e ->
+        let (n, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_down ~n) e
+  | Simple Page_up | Simple (Ctrl 'B') ->
+      fun e ->
+        let (n, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_up ~n) e
+  | Simple (Ctrl 'D') ->
+      fun e ->
+        let (r, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_down ~n:(r / 2)) e
+  | Simple (Ctrl 'U') ->
+      fun e ->
+        let (r, _), e = get_terminal_size e in
+        on_focused_buffer (Buffer.Action.move_up ~n:(r / 2)) e
   (* Change *)
   | Shortcut (_, n, Change) ->
       let n = Option.value ~default:1 n - 1 in