Making Submenus

[Heime]

Am making sub-menus after finding about "easy-menu-define"

(defvar xepty-outline

(list "Outline"

["Hide Direct Body" outline-hide-entry :help "Hide Entry"]

["Expose Direct Body" outline-show-entry :help "Show Entry"]

["Expose Headings" outline-hide-body :help "Hide Body"])

"Submenu giving outline capability.")

(defun xepty-menu ()

(easy-menu-define xepty global-map "Xepty"

(list "Xepty" xepty-outline ["Entry Sweep" xepty-texinfe-pdf t])) )

--------------------------------

Then there is "menu-bar". But in this case I am having difficulty figuring out
how I can construct a submenu.

(define-key-after global-map [menu-bar xepty]

(cons "Xepty" (make-sparse-keymap "Xepty")) 'tools)

(define-key global-map [menu-bar xepty xepty-about]

'(menu-item "About Xepty" xepty-about :help "About Xepty"))