From 5c3864986f844a31e0b6dbeec48543dc6376cff6 Mon Sep 17 00:00:00 2001
From: Federico Igne <undyamon@disroot.org>
Date: Tue, 23 Jan 2024 18:11:22 +0100
Subject: feat: add partial chords to statusbar

---
 lib/key.ml | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'lib/key.ml')

diff --git a/lib/key.ml b/lib/key.ml
index d6656c5..22338f4 100644
--- a/lib/key.ml
+++ b/lib/key.ml
@@ -32,6 +32,25 @@ let of_char = function
   | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl
   | c -> Key c
 
+let to_string = function
+  | Arrow_down -> "<down>"
+  | Arrow_left -> "<left>"
+  | Arrow_right -> "<right>"
+  | Arrow_up -> "<up>"
+  | Backspace -> "<backspace>"
+  | Ctrl c -> Printf.sprintf "<c-%c>" c
+  | Delete -> "<delete>"
+  | End -> "<end>"
+  | Enter -> "<cr>"
+  | Esc -> "<esc>"
+  | Home -> "<home>"
+  | Key ' ' -> "<space>"
+  | Key c -> String.of_char c
+  | Nul -> "<nil>"
+  | Page_down -> "<pgdown>"
+  | Page_up -> "<pgup>"
+  | Tab -> "<tab>"
+
 let stream =
   let step s c =
     let open Sequence.Step in
-- 
cgit v1.2.3