about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/+tab-bar.el6
1 files changed, 5 insertions, 1 deletions
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'."
120 (menu-bar-keymap)) 120 (menu-bar-keymap))
121 (popup-menu menu event))) 121 (popup-menu menu event)))
122 122
123(defcustom +tab-bar-menu-bar-icon " Emacs "
124 "The string to use for the tab-bar menu icon."
125 :type 'string)
126
123(defun +tab-bar-format-menu-bar () 127(defun +tab-bar-format-menu-bar ()
124 "Produce the Menu button for the tab bar that shows the menu bar." 128 "Produce the Menu button for the tab bar that shows the menu bar."
125 `((menu-bar menu-item (propertize " 𝜀 " 'face '+tab-bar-extra) 129 `((menu-bar menu-item (propertize +tab-bar-menu-bar-icon 'face '+tab-bar-extra)
126 +tab-bar-menu-bar :help "Menu Bar"))) 130 +tab-bar-menu-bar :help "Menu Bar")))
127 131
128 132