diff options
author | Federico Igne <undyamon@disroot.org> | 2024-01-11 19:38:04 +0100 |
---|---|---|
committer | Federico Igne <undyamon@disroot.org> | 2024-01-11 19:38:04 +0100 |
commit | b177712c7ac2563cbfad48927452d9544cbafd22 (patch) | |
tree | 77f11233eb096a25940904a289bd05b245878cec | |
parent | 055c743c55bde27f4475d3434c26d8383c0c3ea1 (diff) | |
download | sandy-b177712c7ac2563cbfad48927452d9544cbafd22.tar.gz sandy-b177712c7ac2563cbfad48927452d9544cbafd22.zip |
refactor: revert temporary naming
-rw-r--r-- | bin/main.ml | 2 | ||||
-rw-r--r-- | lib/editor.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/bin/main.ml b/bin/main.ml index 75328c9..932c452 100644 --- a/bin/main.ml +++ b/bin/main.ml | |||
@@ -4,5 +4,5 @@ let () = | |||
4 | let open Editor in | 4 | let open Editor in |
5 | let cli = Config.parse Sys.argv in | 5 | let cli = Config.parse Sys.argv in |
6 | let editor = Editor.init cli in | 6 | let editor = Editor.init cli in |
7 | let rec loop () = Action.(render *> handle_next_command2 >>= loop) in | 7 | let rec loop () = Action.(render *> handle_next_command >>= loop) in |
8 | Action.eval ~editor loop | 8 | Action.eval ~editor loop |
diff --git a/lib/editor.ml b/lib/editor.ml index c3e298e..a516b25 100644 --- a/lib/editor.ml +++ b/lib/editor.ml | |||
@@ -255,7 +255,7 @@ let handle_normal_command = | |||
255 | Buffer.Action.delete_to_bol |> on_focused_buffer_or_new | 255 | Buffer.Action.delete_to_bol |> on_focused_buffer_or_new |
256 | | _ -> noop | 256 | | _ -> noop |
257 | 257 | ||
258 | let handle_next_command2 m e = | 258 | let handle_next_command m e = |
259 | match m with | 259 | match m with |
260 | | Insert -> ( | 260 | | Insert -> ( |
261 | match Sequence.next e.i_pending with | 261 | match Sequence.next e.i_pending with |
@@ -266,6 +266,6 @@ let handle_next_command2 m e = | |||
266 | | None -> ((), e) | 266 | | None -> ((), e) |
267 | | Some (h, t) -> handle_normal_command h { e with n_pending = t }) | 267 | | Some (h, t) -> handle_normal_command h { e with n_pending = t }) |
268 | 268 | ||
269 | let handle_next_command2 = | 269 | let handle_next_command = |
270 | let open Action in | 270 | let open Action in |
271 | get_mode >>= handle_next_command2 | 271 | get_mode >>= handle_next_command |