RE: [h-e-w] Current dir & customizing menu

[Heribert Maier]

This is cool code, Hans!
Do you know how to make submenus with the tiny arrow?

Thanks for helping,

Heribert.


Rosbach, Hans A. writes:
 > "How can I make my own global menu with favorites?"
 > 
 > The answer is - one possibility is like this:
 > 
 > 
 > (defun define-my-favorites-menu ()
 >   "Redefine menubar"
 >   (cond (t
 >      (or (lookup-key global-map [menu-bar])
 >          (define-key global-map [menu-bar] (make-sparse-keymap
 > "menu-bar")))
 >      (defvar menu-bar-my-favorites-menu (make-sparse-keymap "Favorites"))
 >      (setq menu-bar-final-items (cons 'menu-bar-my-favorites-menu
 > menu-bar-final-items))
 >      (define-key global-map [menu-bar menu-bar-my-favorites-menu]
 >        (cons "Favorites" menu-bar-my-favorites-menu))
 >      (define-key menu-bar-my-favorites-menu [goto-line]
 >        '("goto-line" . goto-line))
 >       (define-key menu-bar-my-favorites-menu [separator-favorites]
 >         '("--"))
 >      (define-key menu-bar-my-favorites-menu [gnus]
 >        '("gnus" . gnus))
 >      )))
 > 
 > (define-my-favorites-menu)
 > 
 > Hans Rosbach