ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 12:17:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-notmuch: Use G-expressions.

Browse source 
* gnu/packages/mail.scm (emacs-notmuch)[arguments]: Use G-expressions.
<#:phases>: Use SEARCH-INPUT-FILE.
This commit is contained in:
Nicolas Goaziou 2022-02-07 11:04:06 +01:00
parent d7368fe7f2
commit 699e79e0fb
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/mail.scm
View file

@ -1397,18 +1397,19 @@ (define-public emacs-notmuch
(inputs (inputs
(list notmuch)) (list notmuch))
(arguments (arguments
`(#:exclude (cons* "make-deps.el" "rstdoc.el" %default-exclude) (list
#:exclude #~(cons* "make-deps.el" "rstdoc.el" %default-exclude)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (lambda _
(chdir "emacs"))) (chdir "emacs")))
(add-after 'chdir 'patch-paths (add-after 'chdir 'patch-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((notmuch (assoc-ref inputs "notmuch"))) (let ((notmuch (search-input-file inputs "/bin/notmuch")))
(substitute* "notmuch-lib.el" (substitute* "notmuch-lib.el"
(("\"notmuch\"") (("\"notmuch\"")
(string-append "\"" notmuch "/bin/notmuch\""))))))))) (string-append "\"" notmuch "\"")))))))))
(synopsis "Run Notmuch within Emacs") (synopsis "Run Notmuch within Emacs")
(description (description
"This package provides an Emacs-based interface to the Notmuch mail "This package provides an Emacs-based interface to the Notmuch mail