no way to remove festive icons from within menus

no way to remove festive icons from within menus

[Dan Jacobson]

$ emacs -q #21.3.1
gives a line of icons atop the screen.
The funny thing is, searching thru them and the menus at the very top
of the screen, one finds no way to turn off the icons.
Therefore a way to turn them off should be amongst the menu items.

So there should be a way to do (tool-bar-mode 0) right in the toolbar
itself.  And a way to bring it back via the menus.  Or just have it
fold up and sit on the edge...

Re: no way to remove festive icons from within menus

[Kevin Rodgers]

Dan Jacobson wrote:
 > $ emacs -q #21.3.1
 > gives a line of icons atop the screen.
 > The funny thing is, searching thru them and the menus at the very top
 > of the screen, one finds no way to turn off the icons.
 > Therefore a way to turn them off should be amongst the menu items.

See below.

 > So there should be a way to do (tool-bar-mode 0) right in the toolbar
 > itself.

(tool-bar-add-item "exit" 'tool-bar-mode 'toggle-tool-bar-mode
		   :help "Toggle the Tool Bar")

 > And a way to bring it back via the menus.

(define-key menu-bar-options-menu [toggle-tool-bar-mode]
   (menu-bar-make-toggle toggle-tool-bar-mode tool-bar-mode
			"Display Tool Bar (Tool Bar mode)"
			"Tool Bar mode %s"
			"Display the tool bar icons"
			(tool-bar-mode)))

 > Or just have it fold up and sit on the edge...

???

-- 
Kevin Rodgers

Re: no way to remove festive icons from within menus

[Kevin Rodgers]

Kevin Rodgers wrote:
 > Dan Jacobson wrote:
 >  > So there should be a way to do (tool-bar-mode 0) right in the toolbar
 >  > itself.
 >
 > (tool-bar-add-item "exit" 'tool-bar-mode 'toggle-tool-bar-mode
 >            :help "Toggle the Tool Bar")

It might be nice if Emacs provided a tool bar analogue to
menu-bar-final-items:

(setq tool-bar-final-items
       (append tool-bar-final-items '(toggle-tool-bar-mode)))

Also, why aren't the menus in menu-bar-final-items right justified?

 >  > And a way to bring it back via the menus.
 >
 > (define-key menu-bar-options-menu [toggle-tool-bar-mode]
 >   (menu-bar-make-toggle toggle-tool-bar-mode tool-bar-mode
 >             "Display Tool Bar (Tool Bar mode)"
 >             "Tool Bar mode %s"
 >             "Display the tool bar icons"
 >             (tool-bar-mode)))

And for symmetry:

;; put this before (tool-bar-add-item ...) above:
(tool-bar-add-item "exit" 'menu-bar-mode 'toggle-menu-bar-mode
            :help "Toggle the Menu Bar")

;; put this after (define-key menu-bar-options-menu ...) above:
(define-key menu-bar-options-menu [toggle-menu-bar-mode]
   (menu-bar-make-toggle toggle-menu-bar-mode menu-bar-mode
             "Display Menu Bar (Menu Bar mode)"
             "Menu Bar mode %s"
             "Display the menu bar labels"
             (menu-bar-mode nil)))

-- 
Kevin Rodgers