summaryrefslogtreecommitdiff
path: root/lib/command.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/command.ml')
-rw-r--r--lib/command.ml17
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/command.ml b/lib/command.ml
index 9ab36f6..ac1dbf1 100644
--- a/lib/command.ml
+++ b/lib/command.ml
@@ -14,6 +14,8 @@ type operation =
14 | Paste_after 14 | Paste_after
15 | Erase_before 15 | Erase_before
16 | Erase_after 16 | Erase_after
17 | Search
18 | Search_rev
17 19
18type scope = Line | To_bol | To_eol | Down | Left | Right | Up 20type scope = Line | To_bol | To_eol | Down | Left | Right | Up
19 21
@@ -70,7 +72,18 @@ let to_scope = function
70let is_simple_movement k = List.mem ~equal:Poly.equal simple_movements k 72let is_simple_movement k = List.mem ~equal:Poly.equal simple_movements k
71 73
72let instant_operation = 74let instant_operation =
73 [ Key 'C'; Key 'D'; Key 'Y'; Key 'J'; Key 'P'; Key 'X'; Key 'p'; Key 'x' ] 75 [
76 Key 'C';
77 Key 'D';
78 Key 'Y';
79 Key 'J';
80 Key 'n';
81 Key 'N';
82 Key 'P';
83 Key 'X';
84 Key 'p';
85 Key 'x';
86 ]
74 87
75let chord_operation = [ Key 'c'; Key 'd'; Key 'y' ] 88let chord_operation = [ Key 'c'; Key 'd'; Key 'y' ]
76 89
@@ -79,6 +92,8 @@ let to_op = function
79 | Key 'c' | Key 'C' -> Change 92 | Key 'c' | Key 'C' -> Change
80 | Key 'd' | Key 'D' -> Delete 93 | Key 'd' | Key 'D' -> Delete
81 | Key 'y' | Key 'Y' -> Yank 94 | Key 'y' | Key 'Y' -> Yank
95 | Key 'n' -> Search
96 | Key 'N' -> Search_rev
82 | Key 'p' -> Paste_after 97 | Key 'p' -> Paste_after
83 | Key 'P' -> Paste_before 98 | Key 'P' -> Paste_before
84 | Key 'x' -> Erase_after 99 | Key 'x' -> Erase_after