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