From 699e79e0fbe4b4dd8c041ea3c08c76abf7bf9156 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 7 Feb 2022 11:04:06 +0100 Subject: gnu: emacs-notmuch: Use G-expressions. * gnu/packages/mail.scm (emacs-notmuch)[arguments]: Use G-expressions. <#:phases>: Use SEARCH-INPUT-FILE. --- gnu/packages/mail.scm | 25 +++++++++++++------------ 1 file 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 -- cgit v1.2.3