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 /lisp | |
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.
Diffstat (limited to 'lisp')
-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 | ||