guix.scm: Depend on pre-release guile-xapian.

* guix.scm: Import guile-xapian with the guix: prefix.
(guile-xapian): New variable.

1 files changed, 19 insertions, 1 deletions

diff --git a/guix.scm b/guix.scm
index d1cd18e..02abd7e 100644
--- a/guix.scm
+++ b/guix.scm
@@ -20,7 +20,8 @@
              ((gnu packages fonts) #:select (font-ibm-plex) #:prefix guix:)
              ((gnu packages gettext) #:select (gnu-gettext))
              ((gnu packages guile) #:select (guile-3.0 guile-git))
-             ((gnu packages guile-xyz) #:select (guile-filesystem guile-xapian))
+             ((gnu packages guile-xyz) #:select (guile-filesystem))
+             ((gnu packages guile-xyz) #:select (guile-xapian) #:prefix guix:)
              ((gnu packages skribilo) #:prefix guix:)
              (guix build-system gnu)
              (guix gexp)
@@ -71,6 +72,23 @@
                               (install-file file (string-append out "/share/fonts/web")))
                             (find-files (getcwd) "\\.(woff|woff2)$")))))))))))
 
+(define guile-xapian
+  (let ((commit "93162fd60dbc0cce726113a82c13d88783a279b6")
+        (revision "1"))
+    (package
+      (inherit guix:guile-xapian)
+      (name "guile-xapian")
+      (version (git-version (package-version guix:guile-xapian)
+                            revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.systemreboot.net/guile-xapian")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0g9w10wsjw11ayi9l5y0k6lz4mq2qfhq2hwbxbqgdj7jmllwirgp")))))))
 
 (define tissue
   (package