1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
;;; guile-gcrypt --- crypto tooling for guile ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org> ;;; ;;; This file is part of guile-gcrypt. ;;; ;;; guile-gcrypt is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or ;;; (at your option) any later version. ;;; ;;; guile-gcrypt is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with guile-gcrypt. If not, see <http://www.gnu.org/licenses/>. (define-module (hidamari-blue guile-gcrypt) #:use-module (guix packages) #:use-module (guix build-system gnu) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix gexp) #:use-module ((guix build utils) #:select (with-directory-excursion)) #:use-module (gnu packages) #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages guile) #:use-module (gnu packages pkg-config) #:use-module (gnu packages texinfo) #:use-module (gnu packages gnupg) #:use-module (guix licenses)) ;;; downgraded to guile 2.0 due to requirements for my old guile-pg package (define-public guile-gcrypt (package (name "guile-gcrypt") (version "0") (source (origin (method url-fetch) (uri (string-append "https://hidamari.blue/static/guile-gcrypt-" version ".tar.gz")) (sha256 (base32 "1mi7p16xlivihagx6d2siz69pzw8bzs8ghp2naj31vd20i8dfqyx")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'bootstrap (lambda _ (zero? (system* "sh" "bootstrap.sh"))))))) (native-inputs `(("pkg-config" ,pkg-config) ("autoconf" ,autoconf) ("automake" ,automake) ("texinfo" ,texinfo))) (inputs `(("guile" ,guile-2.2) ("libgcrypt" ,libgcrypt))) (home-page "https://notabug.org/cwebber/guile-gcrypt") (synopsis "Crypto library for Guile using libgcrypt") (description "guile-gcrypt uses Guile's foreign function interface to wrap libgcrypt to provide a variety of encryption tooling.") (license gpl3+))) (define-public guile-2.0-gcrypt (package (name "guile-2.0-gcrypt") (version "0") (source (origin (method url-fetch) (uri (string-append "https://hidamari.blue/static/guile-2.0-gcrypt-" version ".tar.bz2")) (sha256 (base32 "0p8lfq0d6x65g3s95wijcq7mhj2433dvgzxrr90j3kq6617ig0wg")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'bootstrap (lambda _ (zero? (system* "sh" "bootstrap.sh"))))))) (native-inputs `(("pkg-config" ,pkg-config) ("autoconf" ,autoconf) ("automake" ,automake) ("texinfo" ,texinfo))) (inputs `(("guile" ,guile-2.0) ("libgcrypt" ,libgcrypt))) (home-page "https://notabug.org/cwebber/guile-gcrypt") (synopsis "Crypto library for Guile using libgcrypt") (description "guile-gcrypt uses Guile's foreign function interface to wrap libgcrypt to provide a variety of encryption tooling.") (license gpl3+)))