verify that parsing saved file is successful

2024-08-29 05:21:04 +01:00
parent f0958686b7
commit 2549703dc7
8 changed files with 46 additions and 20 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -46,6 +46,11 @@ struct
      key = Input.KEY_S () andalso action = Input.PRESS () andalso mods = 0x002
    then
      Mailbox.send (mailbox, KEY_CTRL_S)
+    else if
+      (* ctrl-l *)
+      key = Input.KEY_L () andalso action = Input.PRESS () andalso mods = 0x002
+    then
+      Mailbox.send (mailbox, KEY_CTRL_L)
    else
      ()