diff options
| author | Juri Linkov <juri@linkov.net> | 2021-01-05 20:55:29 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-01-05 20:55:29 +0200 |
| commit | 7469214d94981d4dbc1ca83a427000fd2b257b47 (patch) | |
| tree | 32b8bc37f8163f60cd82b49414dfc5bac73a9768 /lisp/tab-bar.el | |
| parent | e72fd12ec688efe046de98d5a6494fe2ffab7762 (diff) | |
| download | emacs-7469214d94981d4dbc1ca83a427000fd2b257b47.tar.gz emacs-7469214d94981d4dbc1ca83a427000fd2b257b47.tar.bz2 emacs-7469214d94981d4dbc1ca83a427000fd2b257b47.zip | |
* lisp/tab-bar.el (tab-bar-tab-name-format-function): New defcustom.
(tab-bar-tab-name-format-default): New function as the default value.
(tab-bar-make-keymap-1): Funcall tab-bar-tab-name-format-function.
Diffstat (limited to 'lisp/tab-bar.el')
| -rw-r--r-- | lisp/tab-bar.el | 40 |
1 files changed, 26 insertions, 14 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index b44fcfa3a02..5a95e5975de 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -436,6 +436,30 @@ Return its existing value or a new value." tabs)) +(defcustom tab-bar-tab-name-format-function #'tab-bar-tab-name-format-default + "Function to format a tab name. +Function gets two arguments, the tab and its number, and should return +the formatted tab name to display in the tab bar." + :type 'function + :initialize 'custom-initialize-default + :set (lambda (sym val) + (set-default sym val) + (force-mode-line-update)) + :group 'tab-bar + :version "28.1") + +(defun tab-bar-tab-name-format-default (tab i) + (let ((current-p (eq (car tab) 'current-tab))) + (propertize + (concat (if tab-bar-tab-hints (format "%d " i) "") + (alist-get 'name tab) + (or (and tab-bar-close-button-show + (not (eq tab-bar-close-button-show + (if current-p 'non-selected 'selected))) + tab-bar-close-button) + "")) + 'face (if current-p 'tab-bar-tab 'tab-bar-tab-inactive)))) + (defun tab-bar-make-keymap-1 () "Generate an actual keymap from `tab-bar-map', without caching." (let* ((separator (or tab-bar-separator (if window-system " " "|"))) @@ -461,25 +485,13 @@ Return its existing value or a new value." ((eq (car tab) 'current-tab) `((current-tab menu-item - ,(propertize (concat (if tab-bar-tab-hints (format "%d " i) "") - (alist-get 'name tab) - (or (and tab-bar-close-button-show - (not (eq tab-bar-close-button-show - 'non-selected)) - tab-bar-close-button) "")) - 'face 'tab-bar-tab) + ,(funcall tab-bar-tab-name-format-function tab i) ignore :help "Current tab"))) (t `((,(intern (format "tab-%i" i)) menu-item - ,(propertize (concat (if tab-bar-tab-hints (format "%d " i) "") - (alist-get 'name tab) - (or (and tab-bar-close-button-show - (not (eq tab-bar-close-button-show - 'selected)) - tab-bar-close-button) "")) - 'face 'tab-bar-tab-inactive) + ,(funcall tab-bar-tab-name-format-function tab i) ,(or (alist-get 'binding tab) `(lambda () |