RE: [External] : Re: About Package using a menu

[Heime]

Sent with Proton Mail secure email.

------- Original Message -------
On Tuesday, October 18th, 2022 at 6:14 PM, Drew Adams <drew.adams@oracle.com> 
wrote:


> > Have been playing with constructing a "Xepty menu" with a "Daphne submenu",
> > but how do I make it to display?
> 
> 
> Keep reading.
> 
> Node Menu Keymaps has everything you need.
> Node Menu Example shows you an example.
> Etc.

Have managed to display a parent menu.  Would you holp a bit on how to insert a 
submenu?

Here is the making of a parent menu "xepty-menu".

(defvar xepty-menu (make-sparse-keymap "xepty"))

(define-key-after global-map [menu-bar xepty-menu]
  (cons "Xepty" (make-sparse-keymap "xepty"))
  'tools )

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

Here I want to make submenu "daphne-menu"

(define-key daphne-menu [xepty-menu]
  '(menu-item "Continue Replace" multifile-continue
              :help "Continue last tags replace operation"))
(define-key daphne-menu [xepty-menu]
  '(menu-item "Replace in tagged files" tags-query-replace
              :help "Interactively replace a regexp in all tagged files"))
(define-key daphne-menu [xepty-menu]
  '(menu-item "--"))

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

How can I add submenu daphne-menu in the following?

(define-key global-map [menu-bar xepty-menu daphne]
  '("Next Line" . next-line))