From 83f9ae6f25d9eed46f75c8883518d739afc4a571 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 9 Feb 2021 23:08:14 +0000
Subject: Add fallback package for guile-zlib

---
 guix-dev.scm | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/guix-dev.scm b/guix-dev.scm
index d254922..55cb391 100644
--- a/guix-dev.scm
+++ b/guix-dev.scm
@@ -31,6 +31,7 @@
              (guix build-system gnu)
              (gnu packages)
              (gnu packages autotools)
+             (gnu packages compression)
              (gnu packages databases)
              (gnu packages gnupg)
              (gnu packages guile)
@@ -90,6 +91,48 @@ specification.  These are the main features:
         ;; Version 1.2.0 switched to GPLv3+ (from LGPLv3+).
         (license license:gpl3+))))
 
+(define guile-zlib
+  (if (defined? 'guile-zlib
+        (resolve-interface '(gnu packages guile)))
+      guile-zlib
+      (package
+        (name "guile-zlib")
+        (version "0.0.1")
+        (source
+         (origin
+           ;; XXX: Do not use "git-fetch" method here that would create and
+           ;; endless inclusion loop, because this package is used as an extension
+           ;; in the same method.
+           (method url-fetch)
+           (uri
+            (string-append "https://notabug.org/guile-zlib/guile-zlib/archive/"
+                           version ".tar.gz"))
+           (file-name (string-append name "-" version ".tar.gz"))
+           (sha256
+            (base32
+             "1caz6cbl6sg5567nk68z88rshp0m26zmb0a9ry1jkc1ivpk0n47i"))))
+        (build-system gnu-build-system)
+        (arguments
+         '(#:make-flags
+           '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
+        (native-inputs
+         `(("autoconf" ,autoconf)
+           ("automake" ,automake)
+           ("pkg-config" ,pkg-config)
+           ,@(if (%current-target-system)
+                 `(("guile" ,guile-3.0))   ;for 'guild compile' and 'guile-3.0.pc'
+                 '())))
+        (inputs
+         `(("guile" ,guile-3.0)
+           ("zlib" ,zlib)))
+        (synopsis "Guile bindings to zlib")
+        (description
+         "This package provides Guile bindings for zlib, a lossless
+data-compression library.  The bindings are written in pure Scheme by using
+Guile's foreign function interface.")
+        (home-page "https://notabug.org/guile-zlib/guile-zlib")
+        (license license:gpl3+))))
+
 (package
   (name "guix-build-coordinator")
   (version "0.0.0")
-- 
cgit v1.2.3