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

25
gnu/packages/mail.scm
View file

@ -1397,18 +1397,19 @@ (define-public emacs-notmuch
(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