add ability to select cursor colour

2025-08-09 07:04:03 +01:00
parent 7a3fc728f6
commit fa2a5c878c
6 changed files with 72 additions and 1 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -85,6 +85,10 @@ struct
      key = Input.KEY_H () andalso action = Input.PRESS () andalso mods = 0
    then
      Mailbox.send (mailbox, KEY_H)
+    else if
+      key = Input.KEY_C () andalso action = Input.PRESS () andalso mods = 0x000
+    then
+      Mailbox.send (mailbox, KEY_C)
    else if
      key = Input.KEY_UP () andalso action <> Input.RELEASE ()
      andalso mods = 0x0