progress towards adding load functionality'

2024-09-25 10:17:57 +01:00
parent d49ac2c565
commit 2528e67375
8 changed files with 73 additions and 9 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -86,6 +86,10 @@ struct
      andalso mods = 0x0
    then
      Mailbox.send (mailbox, KEY_SPACE)
+    else if
+      key = Input.KEY_O () andalso action = Input.PRESS () andalso mods = 0x02
+    then
+      Mailbox.send (mailbox, KEY_CTRL_O)
    else
      ()