Re: no way to remove festive icons from within menus

[Kevin Rodgers <ihs_4664@yahoo.com>]

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