summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFederico Igne <undyamon@disroot.org>2024-01-23 18:37:33 +0100
committerFederico Igne <undyamon@disroot.org>2024-01-23 18:37:33 +0100
commit7510a0194125ad6229fe8e84f436faa7f87b7c25 (patch)
tree0ebc054460c8d5f46cd08e3aef041d65fcca8b9f
parent6386474ac8a4b113d5c9b4aa2b03104b7f219371 (diff)
downloadsandy-7510a0194125ad6229fe8e84f436faa7f87b7c25.tar.gz
sandy-7510a0194125ad6229fe8e84f436faa7f87b7c25.zip
feat: add Ctrl-H as a synonim for Backspace
-rw-r--r--lib/key.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/key.ml b/lib/key.ml
index 22338f4..877c214 100644
--- a/lib/key.ml
+++ b/lib/key.ml
@@ -25,10 +25,10 @@ let key c = Key c
25 25
26let of_char = function 26let of_char = function
27 | '\000' -> Nul 27 | '\000' -> Nul
28 | '\008' | '\127' -> Backspace
28 | '\009' -> Tab 29 | '\009' -> Tab
29 | '\013' -> Enter 30 | '\013' -> Enter
30 | '\027' -> Esc 31 | '\027' -> Esc
31 | '\127' -> Backspace
32 | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl 32 | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl
33 | c -> Key c 33 | c -> Key c
34 34