diff options
author | Case Duckworth | 2022-02-01 15:06:03 -0600 |
---|---|---|
committer | Case Duckworth | 2022-02-01 15:06:03 -0600 |
commit | 9b4e6f10d33f9391ae6629302868e2631fd3426b (patch) | |
tree | 995a43c373d7a1aac3bc23d82f80763306ba9a5b | |
parent | Remove font-lock-comment-face from mode-line things (diff) | |
download | emacs-9b4e6f10d33f9391ae6629302868e2631fd3426b.tar.gz emacs-9b4e6f10d33f9391ae6629302868e2631fd3426b.zip |
Parameterize +tab-bar-menu-bar-icon
-rw-r--r-- | lisp/+tab-bar.el | 6 |
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 | ||