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

gnu: pan: Use G-expressions.

Browse source 
* gnu/packages/mail.scm (pan)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-05 23:38:27 +01:00
parent 0d78ac083a
commit 1326b36073
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/mail.scm
View file

@ -62,6 +62,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages mail) (define-module (gnu packages mail)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
@ -3789,17 +3790,19 @@ (define-public pan
(sha256 (sha256
(base32 "1sl5rdgalswxya61vhkf28r0fb4b3pq77qgzhhsfagmpvgbx0d2x")))) (base32 "1sl5rdgalswxya61vhkf28r0fb4b3pq77qgzhhsfagmpvgbx0d2x"))))
(arguments (arguments
`(#:configure-flags '("--with-gtk3" "--with-gtkspell" "--with-gnutls" (list #:configure-flags
"--enable-libnotify" "--enable-manual" #~(list "--with-gtk3" "--with-gtkspell" "--with-gnutls"
"--enable-gkr") "--enable-libnotify" "--enable-manual"
#:phases "--enable-gkr")
(modify-phases %standard-phases #:phases
(add-before 'configure 'patch-gpg2 #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'configure 'patch-gpg2
(substitute* "pan/usenet-utils/gpg.cc" (lambda* (#:key inputs #:allow-other-keys)
(("\"gpg2\"") (string-append "\"" (substitute* "pan/usenet-utils/gpg.cc"
(assoc-ref inputs "gnupg") (("\"gpg2\"")
"/bin/gpg\"")))))))) (string-append "\""
(search-input-file inputs "/bin/gpg")
"\""))))))))
(inputs (inputs
(list gmime (list gmime
gnupg gnupg