diff options
| author | Federico Igne <undyamon@disroot.org> | 2024-01-26 20:36:54 +0100 |
|---|---|---|
| committer | Federico Igne <undyamon@disroot.org> | 2024-01-26 20:36:54 +0100 |
| commit | 51db77f719d2d9fe3160b91a6c7cb9a6e9f256f8 (patch) | |
| tree | 8fe792c3a4d3bf1edff8689fd0b7f017cb4a0893 | |
| parent | 1154021614181f2b62ced31cde8b9ac761f91312 (diff) | |
| download | sandy-51db77f719d2d9fe3160b91a6c7cb9a6e9f256f8.tar.gz sandy-51db77f719d2d9fe3160b91a6c7cb9a6e9f256f8.zip | |
fix: map both CR and LF to 'Enter'
| -rw-r--r-- | lib/key.ml | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -27,7 +27,7 @@ let of_char = function | |||
| 27 | | '\000' -> Nul | 27 | | '\000' -> Nul |
| 28 | | '\008' | '\127' -> Backspace | 28 | | '\008' | '\127' -> Backspace |
| 29 | | '\009' -> Tab | 29 | | '\009' -> Tab |
| 30 | | '\013' -> Enter | 30 | | '\010' | '\013' -> Enter |
| 31 | | '\027' -> Esc | 31 | | '\027' -> Esc |
| 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 |