diff --git a/after-init.el b/after-init.el index 758bc33..1202c03 100644 --- 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)