add ability to move from normal mode to move mode, and from move mode back to normal mode

2025-08-09 00:13:02 +01:00
parent 50bdd31d59
commit f46ca01d42
7 changed files with 38 additions and 9 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -164,6 +164,14 @@ struct
      key = Input.KEY_9 () andalso action = Input.PRESS () andalso mods = 0
    then
      Mailbox.send (mailbox, NUM 9)
+    else if
+      key = Input.KEY_ESC () andalso action = Input.PRESS () andalso mods = 0
+    then
+      Mailbox.send (mailbox, KEY_ESC)
+    else if
+      key = Input.KEY_M () andalso action = Input.PRESS () andalso mods = 0
+    then
+      Mailbox.send (mailbox, KEY_M)
    else
      ()