code shortcut to trigger export (with <Ctrl-E>); it outputs syntatically valid .sml, but I am not sure if the output is correct as intended so it needs testing

2024-08-30 02:34:24 +01:00
parent 7ab7b8931d
commit acd68a055d
6 changed files with 19 additions and 26 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -51,6 +51,11 @@ struct
      key = Input.KEY_L () andalso action = Input.PRESS () andalso mods = 0x002
    then
      Mailbox.send (mailbox, KEY_CTRL_L)
+    else if
+      (* ctrl-l *)
+      key = Input.KEY_E () andalso action = Input.PRESS () andalso mods = 0x002
+    then
+      Mailbox.send (mailbox, KEY_CTRL_E)
    else
      ()