summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2022-02-07 11:04:06 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2022-02-07 11:05:23 +0100
commit699e79e0fbe4b4dd8c041ea3c08c76abf7bf9156 (patch)
tree455a2604fd103b5628e472e929ade73a3955c18b
parentd7368fe7f2f9616f123ce059ddc576fe7124ea97 (diff)
gnu: emacs-notmuch: Use G-expressions.
* gnu/packages/mail.scm (emacs-notmuch)[arguments]: Use G-expressions. <#:phases>: Use SEARCH-INPUT-FILE.
-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