diff options
author | Federico Igne <undyamon@disroot.org> | 2024-01-23 18:37:33 +0100 |
---|---|---|
committer | Federico Igne <undyamon@disroot.org> | 2024-01-23 18:37:33 +0100 |
commit | 7510a0194125ad6229fe8e84f436faa7f87b7c25 (patch) | |
tree | 0ebc054460c8d5f46cd08e3aef041d65fcca8b9f | |
parent | 6386474ac8a4b113d5c9b4aa2b03104b7f219371 (diff) | |
download | sandy-7510a0194125ad6229fe8e84f436faa7f87b7c25.tar.gz sandy-7510a0194125ad6229fe8e84f436faa7f87b7c25.zip |
feat: add Ctrl-H as a synonim for Backspace
-rw-r--r-- | lib/key.ml | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -25,10 +25,10 @@ let key c = Key c | |||
25 | 25 | ||
26 | let of_char = function | 26 | let 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 | ||