diff options
Diffstat (limited to 'lib/command.ml')
| -rw-r--r-- | lib/command.ml | 17 |
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 | ||
| 18 | type scope = Line | To_bol | To_eol | Down | Left | Right | Up | 20 | type scope = Line | To_bol | To_eol | Down | Left | Right | Up |
| 19 | 21 | ||
| @@ -70,7 +72,18 @@ let to_scope = function | |||
| 70 | let is_simple_movement k = List.mem ~equal:Poly.equal simple_movements k | 72 | let is_simple_movement k = List.mem ~equal:Poly.equal simple_movements k |
| 71 | 73 | ||
| 72 | let instant_operation = | 74 | let 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 | ||
| 75 | let chord_operation = [ Key 'c'; Key 'd'; Key 'y' ] | 88 | let 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 |
