guix.scm: Use source from current directory.

* guix.scm: Import (guix gexp), (guix git-download) and (guix
packages).
(%source-dir): New variable.
(guile-xapian)[source]: Set to source from current directory.

1 files changed, 8 insertions, 1 deletions

diff --git a/guix.scm b/guix.scm
index 44f0071..14b48f0 100644
--- a/guix.scm
+++ b/guix.scm
@@ -22,12 +22,19 @@
 ;;;
 ;;;  $ guix environment -l guix.scm
 
-(use-modules (guix packages)
+(use-modules (guix gexp)
+             (guix git-download)
+             (guix packages)
              (gnu packages autotools)
              (gnu packages guile-xyz))
 
+(define %source-dir (dirname (current-filename)))
+
 (package
   (inherit guile-xapian)
+  (source (local-file %source-dir
+                      #:recursive? #t
+                      #:select? (git-predicate %source-dir)))
   (native-inputs
    `(,@(package-native-inputs guile-xapian)
      ("autoconf" ,autoconf)