Add fallback guile-json-4 package

For old versions of Guix.

1 files changed, 35 insertions, 0 deletions

diff --git a/guix-dev.scm b/guix-dev.scm
index 845c216..d254922 100644
--- a/guix-dev.scm
+++ b/guix-dev.scm
@@ -55,6 +55,41 @@
       guile-3.0-latest
       guile-next))
 
+(define guile-json-4
+  (if (defined? 'guile-json-4
+        (resolve-interface '(gnu packages guile)))
+      guile-json-4
+      (package
+        (name "guile-json")
+        (version "4.5.2")
+        (source (origin
+                  (method url-fetch)
+                  (uri (string-append "mirror://savannah/guile-json/guile-json-"
+                                      version ".tar.gz"))
+                  (sha256
+                   (base32
+                    "0cqr0ljqmzlc2bwrapcsmcgxg147h66mcxf23824ri5i6vn4dc0s"))))
+        (build-system gnu-build-system)
+        (arguments
+         `(#:make-flags '("GUILE_AUTO_COMPILE=0")))   ;to prevent guild warnings
+        (native-inputs `(("pkg-config" ,pkg-config)
+                         ("guile" ,guile-3.0)))
+        (inputs `(("guile" ,guile-3.0)))
+        (synopsis "JSON module for Guile")
+        (description
+         "Guile-JSON supports parsing and building JSON documents according to the
+specification.  These are the main features:
+
+@itemize
+@item Strictly complies to @uref{http://json.org, specification}.
+@item Build JSON documents programmatically via macros.
+@item Unicode support for strings.
+@item Allows JSON pretty printing.
+@end itemize\n")
+        (home-page "https://github.com/aconchillo/guile-json")
+        ;; Version 1.2.0 switched to GPLv3+ (from LGPLv3+).
+        (license license:gpl3+))))
+
 (package
   (name "guix-build-coordinator")
   (version "0.0.0")