From 51db77f719d2d9fe3160b91a6c7cb9a6e9f256f8 Mon Sep 17 00:00:00 2001 From: Federico Igne Date: Fri, 26 Jan 2024 20:36:54 +0100 Subject: fix: map both CR and LF to 'Enter' --- lib/key.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/key.ml b/lib/key.ml index 877c214..2ba9d46 100644 --- a/lib/key.ml +++ b/lib/key.ml @@ -27,7 +27,7 @@ let of_char = function | '\000' -> Nul | '\008' | '\127' -> Backspace | '\009' -> Tab - | '\013' -> Enter + | '\010' | '\013' -> Enter | '\027' -> Esc | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl | c -> Key c -- cgit v1.2.3