From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:47865) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fjXKj-0005z1-M4 for guix-patches@gnu.org; Sat, 28 Jul 2018 18:05:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fjXKg-0003TS-FF for guix-patches@gnu.org; Sat, 28 Jul 2018 18:05:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:56320) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fjXKg-0003TL-Bo for guix-patches@gnu.org; Sat, 28 Jul 2018 18:05:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fjXKg-0001xf-3C for guix-patches@gnu.org; Sat, 28 Jul 2018 18:05:02 -0400 Subject: [bug#31999] [PATCH 1/7] gnu: Add volume-key. Resent-Message-ID: From: Pierre Neidhardt Date: Sun, 29 Jul 2018 00:04:00 +0200 Message-Id: <20180728220400.11462-1-ambrevar@gmail.com> In-Reply-To: <87r2k86x0p.fsf@fastmail.com> References: <87r2k86x0p.fsf@fastmail.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 31999@debbugs.gnu.org * gnu/package/disk.scm (volume-key): New variable. --- gnu/packages/disk.scm | 48 ++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 47 insertions(+), 1 deletion(-) diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index c1fc2e2c3..6d4435784 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -12,6 +12,7 @@ ;;; Copyright © 2018 Vasile Dumitrascu ;;; Copyright © 2018 Eric Bavier ;;; Copyright © 2018 Rutger Helling +;;; Copyright © 2018 Pierre Neidhardt ;;; ;;; This file is part of GNU Guix. ;;; @@ -55,7 +56,11 @@ #:use-module (gnu packages compression) #:use-module (gnu packages vim) #:use-module (gnu packages w3m) - #:use-module (gnu packages xml)) + #:use-module (gnu packages xml) + #:use-module (gnu packages cryptsetup) + #:use-module (gnu packages gnuzilla) + #:use-module (gnu packages gnupg) + #:use-module (gnu packages swig)) (define-public parted (package @@ -547,3 +552,44 @@ provides a minimalistic and nice curses interface with a view on the directory hierarchy. It ships with @code{rifle}, a file launcher that is good at automatically finding out which program to use for what file type.") (license license:gpl3))) + +(define-public volume-key + (package + (name "volume-key") + (version "0.3.10") + (source (origin + (method url-fetch) + (uri (string-append "https://releases.pagure.org/volume_key/volume_key-" + version ".tar.xz")) + (sha256 + (base32 + "19wqgrd0cnnjs1b1d7s9ssc957vis8vj7bls9rkwhf9ywgkrswn5")))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config) + ("util-linux" ,util-linux) + ("glib" ,glib) + ("swig" ,swig) + ("lvm2" ,lvm2) + ("python" ,python-2))) ; Used to generate the Python bindings. + (inputs + `(("cryptsetup" ,cryptsetup) + ("nss" ,nss) + ("gpgme" ,gpgme))) + (arguments + `(#:tests? #f ; Not sure how tests are supposed to pass, even when run manually. + #:phases + (modify-phases %standard-phases + (add-before 'configure 'patch-python.h-path + (lambda* (#:key inputs #:allow-other-keys) + (let ((python (assoc-ref inputs "python"))) + (substitute* "Makefile.in" + (("/usr/include/python") (string-append python "/include/python"))) + #t)))))) + (home-page "https://pagure.io/volume_key") + (synopsis "Manipulate storage volume encryption keys") + (description + "This package provides a library for manipulating storage volume +encryption keys and storing them separately from volumes to handle forgotten +passphrases.") + (license license:gpl2))) -- 2.18.0