GNU bug report logs - #71658
[PATCH] gnu: emacs-notmuch: Install desktop files.

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Arun Isaac <arunisaac <at> systemreboot.net>
Subject: bug#71658: closed (Re: [PATCH] gnu: emacs-notmuch: Install
 desktop files.)
Date: Thu, 20 Jun 2024 02:15:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#71658: [PATCH] gnu: emacs-notmuch: Install desktop files.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 71658 <at> debbugs.gnu.org.

-- 
71658: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=71658
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: "jgart" <jgart <at> dismail.de>
To: 71658-done <at> debbugs.gnu.org
Cc: Arun Isaac <arunisaac <at> systemreboot.net>
Subject: Re: [PATCH] gnu: emacs-notmuch: Install desktop files.
Date: Thu, 20 Jun 2024 02:14:32 +0000

Applied!

thanks for adding that,

jgart

[Message part 3 (message/rfc822, inline)]

From: Arun Isaac <arunisaac <at> systemreboot.net>
To: guix-patches <at> gnu.org
Cc: Arun Isaac <arunisaac <at> systemreboot.net>
Subject: [PATCH] gnu: emacs-notmuch: Install desktop files.
Date: Wed, 19 Jun 2024 23:26:35 +0100

* gnu/packages/mail.scm (emacs-notmuch)[arguments]: Add install-desktop-files
phase.

Change-Id: I9f3a049acb7062807a58d95ca526813caab0d563
---
 gnu/packages/mail.scm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index d853fab4d3..fe2135a22d 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1512,7 +1512,23 @@ (define-public emacs-notmuch
               (let ((notmuch (search-input-file inputs "/bin/notmuch")))
                 (substitute* "notmuch-lib.el"
                   (("\"notmuch\"")
-                   (string-append "\"" notmuch "\"")))))))))
+                   (string-append "\"" notmuch "\""))))))
+          ;; Install desktop files so that mailto URIs can be opened using
+          ;; emacs-notmuch.
+          (add-after 'install 'install-desktop-files
+            (lambda* (#:key inputs #:allow-other-keys)
+              (install-file "notmuch-emacs-mua"
+                            (string-append #$output "/bin"))
+              (let ((applications (string-append #$output "/share/applications")))
+                (install-file "notmuch-emacs-mua.desktop"
+                              applications)
+                (copy-file "notmuch-emacs-mua.desktop"
+                           (string-append applications
+                                          "/notmuch-emacsclient-mua.desktop"))
+                (substitute* (string-append applications
+                                            "/notmuch-emacsclient-mua.desktop")
+                  (("Exec=notmuch-emacs-mua" all)
+                   (string-append all " --client")))))))))
     (synopsis "Run Notmuch within Emacs")
     (description
      "This package provides an Emacs-based interface to the Notmuch mail

base-commit: e32e3d0a03dc17c4c54a91aad053c9036998b601
-- 
2.45.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.