feat: add partial chords to statusbar

1 files changed, 19 insertions, 0 deletions

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