summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Enge <andreas@enge.fr>2013-02-11 23:55:18 +0100
committerAndreas Enge <andreas@enge.fr>2013-02-11 23:55:18 +0100
commitea4d96c6a5ceae45a640928a3783bea3500f78d6 (patch)
tree52b11df8c189003ec7ca0891b11ceed84a84a462
parentb1426f17859173fedc40f14c9e2d40c64a0f469b (diff)
gnu: Add pius.
* gnu/packages/gnupg.scm (pius): New variable.
-rw-r--r--gnu/packages/gnupg.scm50
1 files changed, 50 insertions, 0 deletions
diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm
index 82f8d26a65..baf322721d 100644
--- a/gnu/packages/gnupg.scm
+++ b/gnu/packages/gnupg.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -18,7 +19,9 @@
(define-module (gnu packages gnupg)
#:use-module (guix licenses)
+ #:use-module (gnu packages perl)
#:use-module (gnu packages pth)
+ #:use-module (gnu packages python)
#:use-module (gnu packages readline)
#:use-module ((gnu packages compression)
#:renamer (symbol-prefix-proc 'guix:))
@@ -166,3 +169,50 @@ applications. A wealth of frontend applications and libraries
are available. Version 2 of GnuPG also provides support for
S/MIME.")
(license gpl3+)))
+
+(define-public pius
+ (package
+ (name "pius")
+ (version "2.0.9")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/pgpius/pius/"
+ version "/pius-"
+ version ".tar.bz2"))
+ (sha256 (base32
+ "1g1jly3wl4ks6h8ydkygyl2c4i7v3z91rg42005m6vm70y1d8b3d"))))
+ (build-system gnu-build-system)
+ (inputs `(("perl" ,perl)
+ ("python" ,python)))
+ (arguments
+ `(#:tests? #f
+ #:phases
+ (alist-replace
+ 'configure
+ (lambda* (#:key #:allow-other-keys) #t)
+ (alist-replace
+ 'build
+ (lambda* (#:key #:allow-other-keys) #t)
+ (alist-replace
+ 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (mkdir out)
+ (mkdir (string-append out "/bin"))
+ (for-each
+ (lambda (filename)
+ (copy-file filename (string-append out "/bin/" filename)))
+ '("pius" "pius-keyring-mgr" "pius-party-worksheet"))))
+ %standard-phases)))))
+ (synopsis "programs to simplify gnupg key signing")
+ (description
+ "Pius (PGP Individual UID Signer) helps attendees of PGP keysigning
+parties. It is the main utility and makes it possible to quickly and easily
+sign each UID on a set of PGP keys. It is designed to take the pain out of
+the sign-all-the-keys part of PGP Keysigning Party while adding security
+to the process.
+
+pius-keyring-mgr and pius-party-worksheet help organisers of
+PGP keysigning parties.")
+ (license gpl2)
+ (home-page "http://www.phildev.net/pius/index.shtml")))