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 | ||