From 5aa855751bf2823b6bda0fa08a12b639295dbd6c Mon Sep 17 00:00:00 2001
From: Jonathan Jin <me@jonathanj.in>
Date: Sun, 9 Jun 2024 12:27:14 +0100
Subject: [PATCH] adjust column widths by label name length

---
 kele.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/kele.el b/kele.el
index 228008d..6ab476c 100644
--- a/kele.el
+++ b/kele.el
@@ -1709,7 +1709,9 @@ If NAMESPACE is nil, displays resources for all namespaces."
             (:name "GVK" :width 10 :align left)
             (:name "Owner(s)" :width 20 :align left)
             (:name "Created" :width 30 :align left))
-          (map-keys (alist-get (intern (oref gvk kind)) kele--list-columns)))))
+          (mapcar (lambda (key)
+                    `(:name ,key :width ,(length key) :align left))
+                  (map-keys (alist-get (intern (oref gvk kind)) kele--list-columns))))))
     (make-vtable
      :insert nil
      :use-header-line nil