all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Making Submenus
@ 2022-10-18  0:48 Heime via Users list for the GNU Emacs text editor
  0 siblings, 0 replies; only message in thread
From: Heime via Users list for the GNU Emacs text editor @ 2022-10-18  0:48 UTC (permalink / raw)
  To: help-gnu-emacs@gnu.org

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"))

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2022-10-18  0:48 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-10-18  0:48 Making Submenus Heime via Users list for the GNU Emacs text editor

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.