progress towards toggling graph

2024-08-14 02:31:28 +01:00
parent 575b8d009e
commit 9b639c9c53
10 changed files with 83 additions and 4 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -37,6 +37,10 @@ struct
    then
      (* ctrl-y *)
      Mailbox.send (mailbox, REDO_ACTION)
+    else if
+      key = Input.KEY_G () andalso action <> Input.RELEASE () andalso mods = 0x0
+    then
+      Mailbox.send (mailbox, KEY_G)
    else
      ()