summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFederico Igne <undyamon@disroot.org>2024-01-11 19:38:04 +0100
committerFederico Igne <undyamon@disroot.org>2024-01-11 19:38:04 +0100
commitb177712c7ac2563cbfad48927452d9544cbafd22 (patch)
tree77f11233eb096a25940904a289bd05b245878cec
parent055c743c55bde27f4475d3434c26d8383c0c3ea1 (diff)
downloadsandy-b177712c7ac2563cbfad48927452d9544cbafd22.tar.gz
sandy-b177712c7ac2563cbfad48927452d9544cbafd22.zip
refactor: revert temporary naming
-rw-r--r--bin/main.ml2
-rw-r--r--lib/editor.ml6
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
258let handle_next_command2 m e = 258let 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
269let handle_next_command2 = 269let 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