From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: lisa-asket@perso.be Newsgroups: gmane.emacs.help Subject: Menu functionality Date: Sat, 10 Jul 2021 21:21:39 +0200 (CEST) Message-ID: References: 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="2902"; mail-complaints-to="usenet@ciao.gmane.io" Cc: help-gnu-emacs@gnu.org To: "Jean Louis" Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Sat Jul 10 21:22:57 2021 Return-path: 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 ) id 1m2IYz-0000Yo-1w for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 10 Jul 2021 21:22:57 +0200 Original-Received: from localhost ([::1]:35252 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1m2IYy-0006Ar-3M for geh-help-gnu-emacs@m.gmane-mx.org; Sat, 10 Jul 2021 15:22:56 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:57460) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1m2IYN-0006Aa-Mk for help-gnu-emacs@gnu.org; Sat, 10 Jul 2021 15:22:19 -0400 Original-Received: from msg-1.mailo.com ([213.182.54.11]:52972) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1m2IYI-0004PZ-Li for help-gnu-emacs@gnu.org; Sat, 10 Jul 2021 15:22:19 -0400 Original-Received: by www-7.mailo.com with http webmail; Sat, 10 Jul 2021 21:21:39 +0200 (CEST) X-EA-Auth: 5MQbWtT34D6fRHnasaz4BvNVORe9o4voeN/GEfGA2Mna8dkje6WJGDsFogAzUjOvM8pg/glkT1sx1/jEuNS1YQ== X-Priority: 3 X-Mailer: COMS/EA21.01/r20210601 In-Reply-To: Received-SPF: pass client-ip=213.182.54.11; envelope-from=lisa-asket@perso.be; helo=msg-1.mailo.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, HTML_MESSAGE=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Content-Filtered-By: Mailman/MimeDel 2.1.23 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:131659 Archived-At: Is it possible for=C2=A0 easy-menu-define te inject the menu at a particula= r location in the menubar. Currently the menu is being inserted before the file menu. From: Jean Louis To: lisa-asket@perso.be Subject: Re: Menu functionality Date: 10/07/2021 19:44:15 Europe/Paris Cc: help-gnu-emacs@gnu.org * lisa-asket@perso.be [2021-07-10 08:59]: > (defun my-easy-menu () > =C2=A0 "" > =C2=A0 (easy-menu-define rupal global-map "Rupal" > =C2=A0=C2=A0=C2=A0 (list "Rupal" > =C2=A0=C2=A0=C2=A0 =C2=A0 ["Entry Sweep" entry-sweep t] > =C2=A0=C2=A0=C2=A0 =C2=A0 ["Hide Entry"=C2=A0 hide-entry t] > =C2=A0=C2=A0=C2=A0 =C2=A0 ["Show Entry"=C2=A0 show-entry t] > =C2=A0=C2=A0=C2=A0 =C2=A0 ["Hide Body"=C2=A0=C2=A0 hide-body t] > =C2=A0=C2=A0=C2=A0 =C2=A0 ("Sub Menu" > =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0 ["Texinfo Pdf" texinfo-pdf t] > =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0 ["Texinfo Htm" texinfo-htm t]) )) ) I have used it even without the `defun', just `easy-menu-define' alone. This is because when I load specific file then `easy-menu-define' is invoked and I get the menu. Otherwise if it is part of special mode it is then invoked in that special mode. I also define multiple sub-menus this way: (defvar hyperscope-menu-list-hyperdocuments (list "List hyperdocuments" ["List action hyperdocuments action" hyperscope-all-actions t] ["List assigned action hyperdocuments" hyperscope-list-assigned-actions t] ["List published hyperdocuments" hyperscope-list-published-hyperdocuments = t] ["Actions pending by assignee" hyperscope-hyperdocuments-pending-by-assign= ee t] ["Latest hyperdocuments" hyperscope-latest-entries t] ["List by rank" hyperscope-by-rank t] ["List user set" hyperscope-list-user-set t])) (defvar hyperscope-menu-current-hyperdocument '("Current hyperdocument" ["Show description for hyperdocument" hyperscope-description-show t] ["Duplicate hyperdocument" hyperscope-copy-hyperdocument t] ["Preview HTML" hyperscope-hyperdocument-preview t] ["Open directory" hyperscope-dired t] ["Remove mark" hyperscope-unmark-id t] ["Sort hyperdocuments alphabetically" hyperscope-sort-alphabetically t] ["Go back" hyperscope-go-back t] ["Go back to real parent" hlink-go-to-parent t])) imagine multiple such as above here................. then final that integrates them all: (easy-menu-define hyperscope-menu map "Hyperscope Menu" (list "Hyperscope" hyperscope-menu-list-hyperdocuments hyperscope-menu-current-hyperdocument hyperscope-menu-find-hyperdocuments hyperscope-menu-collaborate hyperscope-menu-add-hyperdocuments hyperscope-menu-edit-hyperdocument hyperscope-menu-deleting-hyperdocuments hyperscope-menu-meta-functions ["About Hyperscope" hyperscope-about t] ["Quit" quit-window t])) I can say that `easy-menu' truly deserves its easy adjective as when I compare it to various GUI toolkits that are normally invoked from Common Lisp or Scheme implementations. A menu in Emacs means much for the user as it offers quick access, it is helpful as it shows key bindings, it gives some structure on how user could proceed with possible actions. > I think many could learn from this as information en making working > menus is scant. I have used just Emasc Lisp manual. --=20 Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/