From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: Making Menu Bar with an About Buffer Date: Fri, 21 Oct 2022 00:09:57 +0300 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="3679"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.7+37 (a90f69b) (2022-09-02) Cc: "help-gnu-emacs@gnu.org" To: Heime Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Oct 20 23:14:44 2022 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 1olcsF-0000ie-7W for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 20 Oct 2022 23:14:43 +0200 Original-Received: from localhost ([::1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1olcsE-0006Pt-2a for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 20 Oct 2022 17:14:42 -0400 Original-Received: from [::1] (helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1olcoR-0003sp-V5 for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 20 Oct 2022 17:10:47 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1olcoN-0003sT-2L for help-gnu-emacs@gnu.org; Thu, 20 Oct 2022 17:10:43 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1olcoI-0002os-58 for help-gnu-emacs@gnu.org; Thu, 20 Oct 2022 17:10:41 -0400 Original-Received: from localhost ([::ffff:197.239.7.218]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 00000000000561C3.000000006351B94C.000046CC; Thu, 20 Oct 2022 14:10:36 -0700 Mail-Followup-To: Heime , "help-gnu-emacs@gnu.org" Content-Disposition: inline In-Reply-To: Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -17 X-Spam_score: -1.8 X-Spam_bar: - X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_SBL=0.141, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no 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 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:140210 Archived-At: * Heime via Users list for the GNU Emacs text editor [2022-10-17 00:38]: > Have seen that Emacs has "About Emacs" and "About Gnu". I would like to do the same with a new "Menu Bar" > called "Gundit" where there is "About Gundit" which prints about Gundit in a dedicated buffer. > > How can this be done? You define function and add it to menu. My function below uses about: hyperlinks, it decides what to display. I have defined "about:" hyperlink in `browse-url-handlers' to be: '(("gemini:" . elpher-go) ("gopher:" . elpher-handler-go) ("about:" . hyperscope-about) ("hyperscope:" . hyperscope-go) ("e2dk://" . amule-handler))) Then this function is showing About, it has Hyperlinks underline where it says about: (defun hyperscope-about (&rest what) (interactive) (let* ((what (if (eql 'cons (type-of what)) (car what) what)) (what (if (null what) "about:hyperscope" what))) (cond ((string= what "about:hyperscope") (hyperscope-text-view " =================================================== Hyperscope - Dynamic Knowledge Repository for Emacs =================================================== about:emacs about:emacs-fancy about:hyperscope ")) ((string= what "about:emacs") (about-emacs)) ((string= what "about:emacs-fancy") (fancy-about-screen)) (t (hyperscope-text-view "Maybe you wish to read about:hyperscope"))))) -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/