guix.scm 2.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. ;;; guile-gcrypt --- crypto tooling for guile
  2. ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
  3. ;;;
  4. ;;; This file is part of guile-gcrypt.
  5. ;;;
  6. ;;; guile-gcrypt is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or
  9. ;;; (at your option) any later version.
  10. ;;;
  11. ;;; guile-gcrypt is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14. ;;; General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with guile-gcrypt. If not, see <http://www.gnu.org/licenses/>.
  18. (use-modules (guix packages)
  19. (guix build-system gnu)
  20. (guix download)
  21. (guix git-download)
  22. (guix gexp)
  23. ((guix build utils) #:select (with-directory-excursion))
  24. (gnu packages)
  25. (gnu packages autotools)
  26. (gnu packages base)
  27. (gnu packages guile)
  28. (gnu packages pkg-config)
  29. (gnu packages texinfo)
  30. (gnu packages gnupg)
  31. (guix licenses))
  32. (define %source-dir (dirname (current-filename)))
  33. (define guile-gcrypt
  34. (package
  35. (name "guile-gcrypt")
  36. (version "git")
  37. (source (local-file %source-dir
  38. #:recursive? #t
  39. #:select? (git-predicate %source-dir)))
  40. (build-system gnu-build-system)
  41. (arguments
  42. '(#:phases
  43. (modify-phases %standard-phases
  44. (add-after 'unpack 'bootstrap
  45. (lambda _ (zero? (system* "sh" "bootstrap.sh")))))))
  46. (native-inputs
  47. `(("pkg-config" ,pkg-config)
  48. ("autoconf" ,autoconf)
  49. ("automake" ,automake)
  50. ("texinfo" ,texinfo)))
  51. (inputs
  52. `(("guile" ,guile-2.2)
  53. ("libgcrypt" ,libgcrypt)))
  54. (home-page "https://notabug.org/cwebber/guile-gcrypt")
  55. (synopsis "Crypto library for Guile using libgcrypt")
  56. (description "guile-gcrypt uses Guile's foreign function interface to wrap
  57. libgcrypt to provide a variety of encryption tooling.")
  58. (license gpl3+)))
  59. guile-gcrypt