From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:46885) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fjXFv-0004Q2-7Y for guix-patches@gnu.org; Sat, 28 Jul 2018 18:00:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fjXFr-0001uD-7s for guix-patches@gnu.org; Sat, 28 Jul 2018 18:00:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:56308) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fjXFr-0001u4-3Z for guix-patches@gnu.org; Sat, 28 Jul 2018 18:00:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fjXFq-0001os-Q2 for guix-patches@gnu.org; Sat, 28 Jul 2018 18:00:02 -0400 Subject: [bug#32299] [PATCH 1/7] gnu: Add volume-key. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:46631) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fjXEd-0003ma-A5 for guix-patches@gnu.org; Sat, 28 Jul 2018 17:58:48 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fjXEZ-0001UW-EK for guix-patches@gnu.org; Sat, 28 Jul 2018 17:58:47 -0400 Received: from mail-wr1-x434.google.com ([2a00:1450:4864:20::434]:44646) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fjXEZ-0001UD-7g for guix-patches@gnu.org; Sat, 28 Jul 2018 17:58:43 -0400 Received: by mail-wr1-x434.google.com with SMTP id r16-v6so8603633wrt.11 for ; Sat, 28 Jul 2018 14:58:42 -0700 (PDT) Received: from localhost.localdomain (59.193.4.93.rev.sfr.net. [93.4.193.59]) by smtp.gmail.com with ESMTPSA id r5-v6sm7298846wmc.39.2018.07.28.14.58.40 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 28 Jul 2018 14:58:41 -0700 (PDT) From: Pierre Neidhardt Date: Sat, 28 Jul 2018 23:58:35 +0200 Message-Id: <20180728215835.9132-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: 32299@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