me/guix
Archived
1
0
Fork 0
Code Activity

gnu: signing-party: Use 'modify-phases'.

Browse source 
* gnu/packages/gnupg.scm (signing-party)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-08-19 11:29:21 +03:00
parent a78435223b
commit 6a90a614ec
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 45 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/gnupg.scm
View file

@ -528,11 +528,10 @@ PGP keysigning parties.")
(arguments (arguments
`(#:tests? #f `(#:tests? #f
#:phases #:phases
(alist-cons-after (modify-phases %standard-phases
'unpack 'remove-spurious-links (add-after 'unpack 'remove-spurious-links
(lambda _ (delete-file "keyanalyze/pgpring/depcomp")) (lambda _ (delete-file "keyanalyze/pgpring/depcomp")))
(alist-replace (replace 'configure
'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(substitute* "keyanalyze/Makefile" (substitute* "keyanalyze/Makefile"
@ -542,14 +541,14 @@ PGP keysigning parties.")
(substitute* "keyanalyze/pgpring/configure" (substitute* "keyanalyze/pgpring/configure"
(("/bin/sh") (which "bash"))) (("/bin/sh") (which "bash")))
(substitute* "gpgwrap/Makefile" (substitute* "gpgwrap/Makefile"
(("\\} clean") (string-append "} clean\ninstall:\n\tinstall -D bin/gpgwrap " (("\\} clean")
(string-append "} clean\ninstall:\n\tinstall -D bin/gpgwrap "
out "/bin/gpgwrap\n"))) out "/bin/gpgwrap\n")))
(substitute* '("gpgsigs/Makefile" "keyanalyze/Makefile" (substitute* '("gpgsigs/Makefile" "keyanalyze/Makefile"
"keylookup/Makefile" "sig2dot/Makefile" "keylookup/Makefile" "sig2dot/Makefile"
"springgraph/Makefile") "springgraph/Makefile")
(("/usr") out)))) (("/usr") out)))))
(alist-replace (replace 'install
'install
(lambda* (#:key outputs #:allow-other-keys #:rest args) (lambda* (#:key outputs #:allow-other-keys #:rest args)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(install (assoc-ref %standard-phases 'install))) (install (assoc-ref %standard-phases 'install)))
@ -573,8 +572,7 @@ PGP keysigning parties.")
'("caff.1" "pgp-clean.1" "pgp-fixkey.1" "gpgdir.1" '("caff.1" "pgp-clean.1" "pgp-fixkey.1" "gpgdir.1"
"gpg-key2ps.1" "gpglist.1" "gpg-mailkeys.1" "gpg-key2ps.1" "gpglist.1" "gpg-mailkeys.1"
"gpgparticipants.1" "gpgsigs.1" "gpgwrap.1" "gpgparticipants.1" "gpgsigs.1" "gpgwrap.1"
"process_keys.1" "pgpring.1" "keyanalyze.1")))) "process_keys.1" "pgpring.1" "keyanalyze.1"))))))))
%standard-phases)))))
(synopsis "Collection of scripts for simplifying gnupg key signing") (synopsis "Collection of scripts for simplifying gnupg key signing")
(description (description
"Signing-party is a collection for all kinds of PGP/GnuPG related things, "Signing-party is a collection for all kinds of PGP/GnuPG related things,