summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-16 16:19:45 -0600
committerCase Duckworth2022-01-16 16:19:45 -0600
commitdba542cc18d9531abe3c6ce9b59d05e67aeffc2b (patch)
treef991137ab175b3643537cc884eb51d3adce9d74c
parentMake tab bar more better (diff)
downloademacs-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.el12
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