Display ⌘ for tab hints

pkryger · Jan 17, 2025 · 6039e3c · 6039e3c
1 parent 067f3e3
commit 6039e3c
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/after-init.el b/after-init.el
@@ -1411,9 +1411,18 @@ language."
     (concat
      (propertize " " 'display '((space :width 8))
                  'face (funcall tab-bar-tab-face-function tab))
-     (tab-bar-tab-name-format-default tab i)
+     (let ((tab-bar-tab-hints (unless (eq tab-bar-tab-hints 'mac)
+                                tab-bar-tab-hints)))
+       (tab-bar-tab-name-format-default tab i))
      (propertize " " 'display '((space :width 8))
-                 'face (funcall tab-bar-tab-face-function tab))))
+                 'face (funcall tab-bar-tab-face-function tab))
+     (when (and (eq tab-bar-tab-hints 'mac)
+                (< i 9))
+       (concat
+        (propertize (format "⌘%d " i)
+                    'face (funcall tab-bar-tab-face-function tab))
+        (propertize " " 'display '((space :width 2))
+                 'face (funcall tab-bar-tab-face-function tab))))))
 
   :custom
   (tab-bar-separator (propertize "|"
@@ -1423,7 +1432,7 @@ language."
   (tab-bar-format '(tab-bar-format-tabs
                     (lambda () " ")))
   (tab-bar-auto-width nil)
-  (tab-bar-tab-hints t)
+  (tab-bar-tab-hints 'mac)
   (tab-bar-close-button-show nil)
   (tab-bar-new-button-show nil)
   (tab-bar-new-tab-choice 'clone)