From 9b4e6f10d33f9391ae6629302868e2631fd3426b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 1 Feb 2022 15:06:03 -0600
Subject: Parameterize +tab-bar-menu-bar-icon

---
 lisp/+tab-bar.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lisp/+tab-bar.el')

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index bbfbcf8..f143388 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el
@@ -120,9 +120,13 @@ Used by `tab-bar-format-menu-bar'."
                 (menu-bar-keymap))
     (popup-menu menu event)))
 
+(defcustom +tab-bar-menu-bar-icon " Emacs "
+  "The string to use for the tab-bar menu icon."
+  :type 'string)
+
 (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-extra)
+  `((menu-bar menu-item (propertize +tab-bar-menu-bar-icon 'face '+tab-bar-extra)
               +tab-bar-menu-bar :help "Menu Bar")))
 
 
-- 
cgit 1.4.1-21-gabe81