summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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