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

92
gnu/packages/gnupg.scm
View file

@ -528,53 +528,51 @@ 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" (("LDLIBS") (string-append "CC=" (which "gcc") "\nLDLIBS")))
(("LDLIBS") (string-append "CC=" (which "gcc") "\nLDLIBS"))) (substitute* "keyanalyze/Makefile"
(substitute* "keyanalyze/Makefile" (("./configure") (string-append "./configure --prefix=" out)))
(("./configure") (string-append "./configure --prefix=" out))) (substitute* "keyanalyze/pgpring/configure"
(substitute* "keyanalyze/pgpring/configure" (("/bin/sh") (which "bash")))
(("/bin/sh") (which "bash"))) (substitute* "gpgwrap/Makefile"
(substitute* "gpgwrap/Makefile" (("\\} clean")
(("\\} clean") (string-append "} clean\ninstall:\n\tinstall -D bin/gpgwrap " (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))) (apply install args)
(apply install args) (for-each
(for-each (lambda (dir file)
(lambda (dir file) (copy-file (string-append dir "/" file)
(copy-file (string-append dir "/" file) (string-append out "/bin/" file)))
(string-append out "/bin/" file))) '("caff" "caff" "caff" "gpgdir" "gpg-key2ps"
'("caff" "caff" "caff" "gpgdir" "gpg-key2ps" "gpglist" "gpg-mailkeys" "gpgparticipants")
"gpglist" "gpg-mailkeys" "gpgparticipants") '("caff" "pgp-clean" "pgp-fixkey" "gpgdir" "gpg-key2ps"
'("caff" "pgp-clean" "pgp-fixkey" "gpgdir" "gpg-key2ps" "gpglist" "gpg-mailkeys" "gpgparticipants"))
"gpglist" "gpg-mailkeys" "gpgparticipants")) (for-each
(for-each (lambda (dir file)
(lambda (dir file) (copy-file (string-append dir "/" file)
(copy-file (string-append dir "/" file) (string-append out "/share/man/man1/" file)))
(string-append out "/share/man/man1/" file))) '("caff" "caff" "caff" "gpgdir"
'("caff" "caff" "caff" "gpgdir" "gpg-key2ps" "gpglist" "gpg-mailkeys"
"gpg-key2ps" "gpglist" "gpg-mailkeys" "gpgparticipants" "gpgsigs" "gpgwrap/doc"
"gpgparticipants" "gpgsigs" "gpgwrap/doc" "keyanalyze" "keyanalyze/pgpring" "keyanalyze")
"keyanalyze" "keyanalyze/pgpring" "keyanalyze") '("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,