nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: pius: Use the right `gpg' binary. 

* gnu/packages/gnupg.scm (pius): Add GnuPG as an input.  Patch the
  installed binaries to refer to the right GnuPG executable.  Fix
  synopsis.
This commit is contained in:
Ludovic Courtès 2013-08-25 16:47:20 +02:00
parent f29f066439
commit 9eed6f9b88
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/gnupg.scm
View File

@ -191,7 +191,8 @@ S/MIME.")
"1g1jly3wl4ks6h8ydkygyl2c4i7v3z91rg42005m6vm70y1d8b3d")))) "1g1jly3wl4ks6h8ydkygyl2c4i7v3z91rg42005m6vm70y1d8b3d"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("perl" ,perl) (inputs `(("perl" ,perl)
("python" ,python))) ("python" ,python)
("gpg" ,gnupg)))
(arguments (arguments
`(#:tests? #f `(#:tests? #f
#:phases #:phases
@ -203,16 +204,19 @@ S/MIME.")
(lambda* (#:key #:allow-other-keys) #t) (lambda* (#:key #:allow-other-keys) #t)
(alist-replace (alist-replace
'install 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out"))
(gpg (string-append (assoc-ref inputs "gpg")
"/bin/gpg2")))
(mkdir out) (mkdir out)
(mkdir (string-append out "/bin")) (mkdir (string-append out "/bin"))
(for-each (for-each (lambda (file)
(lambda (filename) (substitute* file
(copy-file filename (string-append out "/bin/" filename))) (("/usr/bin/gpg") gpg))
(copy-file file (string-append out "/bin/" file)))
'("pius" "pius-keyring-mgr" "pius-party-worksheet")))) '("pius" "pius-keyring-mgr" "pius-party-worksheet"))))
%standard-phases))))) %standard-phases)))))
(synopsis "programs to simplify gnupg key signing") (synopsis "Programs to simplify GnuPG key signing")
(description (description
"Pius (PGP Individual UID Signer) helps attendees of PGP keysigning "Pius (PGP Individual UID Signer) helps attendees of PGP keysigning
parties. It is the main utility and makes it possible to quickly and easily parties. It is the main utility and makes it possible to quickly and easily