[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Changes for emacs 28

From: Juri Linkov
Subject: Re: Changes for emacs 28
Date: Sun, 13 Sep 2020 21:05:28 +0300
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (x86_64-pc-linux-gnu)

>> If the menu-bar isn't displayed then we could display the Hamburger icon
>> in the tool-bar, and clicking on it will pop-up the menu with items from
>> the menu-bar, so users won't need to display both menu-bar and tool-bar.
> If the menu bar isn't displayed, C-mouse-3 already displays a menu
> that shows all the top-level menu-bar items.  So we don't really need
> the Hamburger icon (but it wouldn't hurt to have it, of course --
> provided they don't disable the tool bar as well...)

Yes, this is useful when they don't disable the tool bar,
then the Hamburger menu will look like this:

PNG image

with this patch:

diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el
index 7df1e28e06..3bb8f70ca1 100644
--- a/lisp/tool-bar.el
+++ b/lisp/tool-bar.el
@@ -249,6 +249,16 @@ tool-bar-local-item-from-menu
 (defun tool-bar-setup ()
   (setq tool-bar-separator-image-expression
        (tool-bar--image-expression "separator"))
+  (let ((tool-bar-map (default-value 'tool-bar-map)))
+    (tool-bar-add-item "newsticker/narrow"
+                       (lambda ()
+                        (interactive)
+                        (popup-menu (mouse-menu-bar-map)))
+                      'menu-bar
+                      :visible '(zerop (or (frame-parameter nil 
'menu-bar-lines) 0))
+                      :vert-only t
+                      :help "Pop up the global menu bar"))
   (tool-bar-add-item-from-menu 'find-file "new" nil :label "New File"
                               :vert-only t)
   (tool-bar-add-item-from-menu 'menu-find-file-existing "open" nil

reply via email to

[Prev in Thread] Current Thread [Next in Thread]