diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-07 11:04:06 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-07 11:05:23 +0100 |
| commit | 699e79e0fbe4b4dd8c041ea3c08c76abf7bf9156 (patch) | |
| tree | 455a2604fd103b5628e472e929ade73a3955c18b | |
| parent | d7368fe7f2f9616f123ce059ddc576fe7124ea97 (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.scm | 25 |
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 |