guix.scm 2.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. ;;; guile-webutils -- Web application utilities for Guile
  2. ;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
  3. ;;;
  4. ;;; This program is free software: you can redistribute it and/or
  5. ;;; modify it under the terms of the GNU General Public License
  6. ;;; as published by the Free Software Foundation, either version 3 of
  7. ;;; the License, or (at your option) any later version.
  8. ;;;
  9. ;;; This program is distributed in the hope that it will be useful,
  10. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  12. ;;; General Public License for more details.
  13. ;;;
  14. ;;; You should have received a copy of the GNU General Public License
  15. ;;; along with this program. If not, see
  16. ;;; <http://www.gnu.org/licenses/>.
  17. (use-modules (guix packages)
  18. (guix build-system gnu)
  19. (guix download)
  20. (guix git-download)
  21. (guix gexp)
  22. ((guix build utils) #:select (with-directory-excursion))
  23. (gnu packages)
  24. (gnu packages autotools)
  25. (gnu packages base)
  26. (gnu packages guile)
  27. (gnu packages guile-xyz)
  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-webutils
  34. (package
  35. (name "guile-webutils")
  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-3.0)))
  53. (propagated-inputs
  54. ;; @@: We use guile-irregex for date.scm, but we could refactor
  55. ;; it and get rid of this dependency.
  56. `(("guile-irregex" ,guile-irregex)
  57. ("guile-gcrypt" ,guile-gcrypt)))
  58. (home-page "https://notabug.org/cwebber/guile-webutils")
  59. (synopsis "Web application authoring utilities for Guile")
  60. (description "Tooling to write web applications in Guile.")
  61. (license gpl3+)))
  62. guile-webutils