From dba542cc18d9531abe3c6ce9b59d05e67aeffc2b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 16 Jan 2022 16:19:45 -0600
Subject: Define `+tab-bar-extra' face

I don't think this allows any reface-whatevers.
---
 lisp/+tab-bar.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'lisp')

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 @@
 
 (require 'tab-bar)
 
+(defface +tab-bar-extra
+  '((t :inherit (tab-bar font-lock-comment-face)))
+  "Tab bar face for extra information, like the menu-bar and time."
+  :group 'basic-faces)
+
 
 ;; Common
 
 (defun +tab-bar-misc-info ()
   "Display `mode-line-misc-info', formatted for the tab-bar."
-  `((global menu-item ,(string-trim-right
-                        (format-mode-line mode-line-misc-info))
+  `((global menu-item ,(propertize (string-trim-right
+                                    (format-mode-line mode-line-misc-info))
+                                   'face '+tab-bar-extra)
             ignore)))
 
 (defvar +tab-bar-show-original nil
@@ -70,7 +76,7 @@ Used by `tab-bar-format-menu-bar'."
 
 (defun +tab-bar-format-menu-bar ()
   "Produce the Menu button for the tab bar that shows the menu bar."
-  `((menu-bar menu-item (propertize "Ɛ " 'face 'tab-bar-tab-inactive)
+  `((menu-bar menu-item (propertize " Ɛ " 'face '+tab-bar-extra)
               +tab-bar-menu-bar :help "Menu Bar")))
 
 
-- 
cgit 1.4.1-21-gabe81