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