aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/mail.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/mail.scm')
-rw-r--r--gnu/packages/mail.scm25
1 files changed, 13 insertions, 12 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 0c2bd8f715..70d6d03a75 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1397,18 +1397,19 @@ ing, and tagging large collections of email messages.")
(inputs
(list notmuch))
(arguments
- `(#:exclude (cons* "make-deps.el" "rstdoc.el" %default-exclude)
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'chdir
- (lambda _
- (chdir "emacs")))
- (add-after 'chdir 'patch-paths
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((notmuch (assoc-ref inputs "notmuch")))
- (substitute* "notmuch-lib.el"
- (("\"notmuch\"")
- (string-append "\"" notmuch "/bin/notmuch\"")))))))))
+ (list
+ #:exclude #~(cons* "make-deps.el" "rstdoc.el" %default-exclude)
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "emacs")))
+ (add-after 'chdir 'patch-paths
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((notmuch (search-input-file inputs "/bin/notmuch")))
+ (substitute* "notmuch-lib.el"
+ (("\"notmuch\"")
+ (string-append "\"" notmuch "\"")))))))))
(synopsis "Run Notmuch within Emacs")
(description
"This package provides an Emacs-based interface to the Notmuch mail