Configure guix.scm to read the local dir

README.org

@@ -2,3 +2,10 @@
 
 #+TITLE: README for Guile Guile-Docs
 
+Like janetdocs or clojuredocs, but for guile!
+
+* Developing
+** Guix
+Just run src_bash{guix shell -Df guix.scm -m manifest.scm} to get a developer environment.
+
+manifest.scm is intended for dev tools related programs.

guix.scm

@@ -1,8 +1,10 @@
 (use-modules
  (guix packages)
  ((guix licenses) #:prefix license:)
- (guix download)
- (guix build-system gnu)
+ (guix gexp)
+ (guix git-download)
+ (guix utils)
+ (guix build-system copy)
  (gnu packages)
  (gnu packages autotools)
  (gnu packages guile)
@@ -10,21 +12,31 @@
  (gnu packages pkg-config)
  (gnu packages texinfo))
 
+(define vcs-file?
+  (or (git-predicate (current-source-directory))
+      (const #t)))
+
+(define vcs-file?
+  (or (git-predicate (current-source-directory))
+      (const #t)))
+
 (package
- (name "guile-guile-docs")
- (version "0.1")
- (source "./guile-guile-docs-0.1.tar.gz")
- (build-system gnu-build-system)
- (arguments `())
- (native-inputs
-  `(("autoconf" ,autoconf)
-    ("automake" ,automake)
-    ("pkg-config" ,pkg-config)
-    ("texinfo" ,texinfo)))
- (inputs (list guile-3.0
-               haunt))
- (propagated-inputs `())
- (synopsis "")
- (description "")
- (home-page "")
- (license license:gpl3+))
+  (name "guile-guile-docs")
+  (version "0.1")
+  (source (local-file "." "guile-checkout"
+                      #:recursive? #t
+                      #:select? vcs-file?))
+  (build-system copy-build-system)
+  (arguments `())
+  (native-inputs
+    `(("autoconf" ,autoconf)
+      ("automake" ,automake)
+      ("pkg-config" ,pkg-config)
+      ("texinfo" ,texinfo)))
+  (inputs (list guile-3.0
+                haunt))
+  (propagated-inputs `())
+  (synopsis "")
+  (description "")
+  (home-page "")
+  (license license:gpl3+))