From 127c25d6b3572cb0e646d4f6a9c5850afe6a05bc Mon Sep 17 00:00:00 2001
From: Caleb Foust <cfoust@sqweebloid.com>
Date: Tue, 6 Feb 2024 06:01:32 +0800
Subject: [PATCH] fix: sizing of key sequence column for palette

---
 pkg/cy/cy-boot.janet | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/pkg/cy/cy-boot.janet b/pkg/cy/cy-boot.janet
index 26bd11d8..9e5eada9 100644
--- a/pkg/cy/cy-boot.janet
+++ b/pkg/cy/cy-boot.janet
@@ -48,7 +48,12 @@ For example:
                                    (get x :sequence)
                                    (string/join x " ")
                                    (string " " x " ")))
-              (tuple [desc (string sequence)] func))
+              (tuple [desc
+                      (string
+                        # Padding on the left prevents the table library from
+                        # shrinking the key sequence string
+                        (string/repeat " " (max (- 15 (length (string sequence))) 0))
+                        sequence)] func))
            _)
          (input/find _ :prompt "search: actions")
          (apply _)))