From 7510a0194125ad6229fe8e84f436faa7f87b7c25 Mon Sep 17 00:00:00 2001
From: Federico Igne <undyamon@disroot.org>
Date: Tue, 23 Jan 2024 18:37:33 +0100
Subject: feat: add Ctrl-H as a synonim for Backspace

---
 lib/key.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
 let of_char = function
   | '\000' -> Nul
+  | '\008' | '\127' -> Backspace
   | '\009' -> Tab
   | '\013' -> Enter
   | '\027' -> Esc
-  | '\127' -> Backspace
   | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl
   | c -> Key c
 
-- 
cgit v1.2.3