about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-02-01 15:06:03 -0600
committerCase Duckworth2022-02-01 15:06:03 -0600
commit9b4e6f10d33f9391ae6629302868e2631fd3426b (patch)
tree995a43c373d7a1aac3bc23d82f80763306ba9a5b
parentRemove font-lock-comment-face from mode-line things (diff)
downloademacs-9b4e6f10d33f9391ae6629302868e2631fd3426b.tar.gz
emacs-9b4e6f10d33f9391ae6629302868e2631fd3426b.zip
Parameterize +tab-bar-menu-bar-icon
-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