From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail
From: Heime <heimeborgia@protonmail.com>
Newsgroups: gmane.emacs.help
Subject: RE: [External] : Re: About Package using a menu
Date: Tue, 18 Oct 2022 17:32:31 +0000
Message-ID: <uz26e82JWJ92Wpny_5N-aXXhT5xU8d5bcT6fqm2PuVSKYJt3bZyUml5DLDaLAl9ht8tHfA-65TVl4oge6UeXxnVLUUxGP6r4-bHnIvGmd1k=@protonmail.com>
References: <hvfTwhX3FCoeqchwtkPz8S0XmG7DpKbKQBmXOxcpZTC_L--VqZMU7Tx8FWPeS4gxquRk6CXtmLq_AwnrkP8tUEZPk0JdBug9UpDzpxcO_B0=@protonmail.com>
 <87czaqyr2j.fsf@dataswamp.org>
 <trinity-d8a61839-5095-4fa9-989e-0711756feb01-1666090966122@3c-app-mailcom-bs04>
 <SJ0PR10MB5488E3E8DB43BD9BB00F4833F3289@SJ0PR10MB5488.namprd10.prod.outlook.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214";
	logging-data="18056"; mail-complaints-to="usenet@ciao.gmane.io"
Cc: Christopher Dimech <dimech@gmx.com>, Emanuel Berg <incal@dataswamp.org>,
 "help-gnu-emacs@gnu.org" <help-gnu-emacs@gnu.org>
To: Drew Adams <drew.adams@oracle.com>
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Tue Oct 18 19:41:15 2022
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org
Original-Received: from lists.gnu.org ([209.51.188.17])
	by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
	(Exim 4.92)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org>)
	id 1okqaZ-0004YS-LV
	for geh-help-gnu-emacs@m.gmane-mx.org; Tue, 18 Oct 2022 19:41:15 +0200
Original-Received: from localhost ([::1]:49770 helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org>)
	id 1okqaX-0005OG-Al
	for geh-help-gnu-emacs@m.gmane-mx.org; Tue, 18 Oct 2022 13:41:14 -0400
Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:38928)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <heimeborgia@protonmail.com>)
 id 1okqSW-0005Is-AX
 for help-gnu-emacs@gnu.org; Tue, 18 Oct 2022 13:32:56 -0400
Original-Received: from mail-4027.protonmail.ch ([185.70.40.27]:17897)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <heimeborgia@protonmail.com>)
 id 1okqSS-0003Vg-6C
 for help-gnu-emacs@gnu.org; Tue, 18 Oct 2022 13:32:54 -0400
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=protonmail.com;
 s=protonmail3; t=1666114369; x=1666373569;
 bh=l7I+1mgAfVIZzyEn6Y3e5hJpdSfeypjbo6OMb9UFBwc=;
 h=Date:To:From:Cc:Subject:Message-ID:In-Reply-To:References:
 Feedback-ID:From:To:Cc:Date:Subject:Reply-To:Feedback-ID:
 Message-ID;
 b=c72rOGShEJbS/tkUxRUcugwUR3BDIJi56BIlzkxsZXdkSPufdWL2w//8JngFSePKD
 Ufu2OPR5012QOFERkchSkE1GcoL3pWTQ9BE3JpVfvFTbehTzRKcqJ91XsH+Iqgl+Lw
 wymgYvHHwtAX+IBjRCeutXobxdSBVCWrdCl9Fdosm0UjdTiXxxxj/gXAplP6aBBfIP
 AqHGbPKw2rTBvSbsG+6wLvTBc8Dh3QSRFREAkqRb0zLP8en5lF5cUP9sWjHVU1KaR7
 ZNxkqx4Ff7fmTKjfJM9tr4Pf27mQ8M9IM0+d63H6rswmeRLyoR6s5qOAqfHN62aj2t
 uAUwV3kIqE1+g==
In-Reply-To: <SJ0PR10MB5488E3E8DB43BD9BB00F4833F3289@SJ0PR10MB5488.namprd10.prod.outlook.com>
Feedback-ID: 57735886:user:proton
Received-SPF: pass client-ip=185.70.40.27;
 envelope-from=heimeborgia@protonmail.com; helo=mail-4027.protonmail.ch
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001,
 RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-gnu-emacs>,
 <mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
 <mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org
Original-Sender: "help-gnu-emacs"
 <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org>
Xref: news.gmane.io gmane.emacs.help:140131
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/140131>

------- Original Message -------
On Tuesday, October 18th, 2022 at 3:37 PM, Drew Adams <drew.adams@oracle.co=
m> wrote:


> > Is easy-menu-define the only way to make submenus?
>=20
>=20
> No, of course not. The Elisp manual has a chapter
> that tells you all about defining menus: in node
> "Defining Menus":
>=20
> https://www.gnu.org/software/emacs/manual/html_node/elisp/Defining-Menus.=
html
>=20
> Easy menu isn't even mentioned in that chapter.

Have been playing with constructing a "Xepty menu" with a "Daphne submenu",=
 =20
but how do I make it to display?

;; Make a Daphne submenu

(defvar daphne-menu (make-sparse-keymap "Xepty"))

(define-key daphne-menu [tags-repl-continue]
  '(menu-item "Continue Replace" multifile-continue
              :help "Continue last tags replace operation"))

(define-key daphne-menu [tags-repl]
  '(menu-item "Replace in tagged files" tags-query-replace
              :help "Interactively replace a regexp in all tagged files"))

(define-key daphne-menu [separator-replace-tags]
  '(menu-item "--"))

(define-key daphne-menu [Xepty]
  (list 'menu-item "Xepty" daphne-menu))

;; Make a Xepty menu

(define-key global-map [xepty-menu words]
  (cons "Xepty" (make-sparse-keymap "Xepty")))

;; Define specific subcommands in this menu.
(define-key global-map [xepty-menu words forward]
  '("Forward word" . forward-word))

(define-key global-map [xepty-menu words backward]
  '("Backward word" . backward-word))

(define-key global-map [C-S-down-mouse-1]
   xepty-menu)