diff options
| author | Case Duckworth | 2022-01-16 16:19:45 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-16 16:19:45 -0600 |
| commit | dba542cc18d9531abe3c6ce9b59d05e67aeffc2b (patch) | |
| tree | f991137ab175b3643537cc884eb51d3adce9d74c | |
| parent | Make tab bar more better (diff) | |
| download | emacs-dba542cc18d9531abe3c6ce9b59d05e67aeffc2b.tar.gz emacs-dba542cc18d9531abe3c6ce9b59d05e67aeffc2b.zip | |
Define `+tab-bar-extra' face
I don't think this allows any reface-whatevers.
| -rw-r--r-- | lisp/+tab-bar.el | 12 |
1 files changed, 9 insertions, 3 deletions
| diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index 02f3a0d..bd5d17e 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el | |||
| @@ -9,13 +9,19 @@ | |||
| 9 | 9 | ||
| 10 | (require 'tab-bar) | 10 | (require 'tab-bar) |
| 11 | 11 | ||
| 12 | (defface +tab-bar-extra | ||
| 13 | '((t :inherit (tab-bar font-lock-comment-face))) | ||
| 14 | "Tab bar face for extra information, like the menu-bar and time." | ||
| 15 | :group 'basic-faces) | ||
| 16 | |||
| 12 | 17 | ||
| 13 | ;; Common | 18 | ;; Common |
| 14 | 19 | ||
| 15 | (defun +tab-bar-misc-info () | 20 | (defun +tab-bar-misc-info () |
| 16 | "Display `mode-line-misc-info', formatted for the tab-bar." | 21 | "Display `mode-line-misc-info', formatted for the tab-bar." |
| 17 | `((global menu-item ,(string-trim-right | 22 | `((global menu-item ,(propertize (string-trim-right |
| 18 | (format-mode-line mode-line-misc-info)) | 23 | (format-mode-line mode-line-misc-info)) |
| 24 | 'face '+tab-bar-extra) | ||
| 19 | ignore))) | 25 | ignore))) |
| 20 | 26 | ||
| 21 | (defvar +tab-bar-show-original nil | 27 | (defvar +tab-bar-show-original nil |
| @@ -70,7 +76,7 @@ Used by `tab-bar-format-menu-bar'." | |||
| 70 | 76 | ||
| 71 | (defun +tab-bar-format-menu-bar () | 77 | (defun +tab-bar-format-menu-bar () |
| 72 | "Produce the Menu button for the tab bar that shows the menu bar." | 78 | "Produce the Menu button for the tab bar that shows the menu bar." |
| 73 | `((menu-bar menu-item (propertize "Ɛ " 'face 'tab-bar-tab-inactive) | 79 | `((menu-bar menu-item (propertize " Ɛ " 'face '+tab-bar-extra) |
| 74 | +tab-bar-menu-bar :help "Menu Bar"))) | 80 | +tab-bar-menu-bar :help "Menu Bar"))) |
| 75 | 81 | ||
| 76 | 82 | ||