From 43bf616d8e58adf393762b13663cbff5ffb84ce3 Mon Sep 17 00:00:00 2001
From: Federico Igne <undyamon@disroot.org>
Date: Mon, 22 Jan 2024 23:42:56 +0100
Subject: feat(mappings): Page Up/Down, Ctrl-F/B/D/U, Home, End

---
 lib/command.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/command.ml')

diff --git a/lib/command.ml b/lib/command.ml
index a68c723..31e2ca2 100644
--- a/lib/command.ml
+++ b/lib/command.ml
@@ -53,6 +53,8 @@ let simple_movements =
     Arrow_left;
     Arrow_right;
     Backspace;
+    End;
+    Home;
   ]
 
 let to_scope = function
@@ -60,8 +62,8 @@ let to_scope = function
   | Key 'h' | Arrow_left | Backspace -> Left
   | Key 'l' | Key ' ' | Arrow_right -> Right
   | Key 'k' | Arrow_up -> Up
-  | Key '0' -> To_bol
-  | Key '$' -> To_eol
+  | Key '0' | Home -> To_bol
+  | Key '$' | End -> To_eol
   | _ -> failwith "Invalid motion."
 
 let is_simple_movement k = List.mem ~equal:Poly.equal simple_movements k
-- 
cgit v1.2.3