Read local source for package

guix.scm

@@ -3,17 +3,26 @@
   ((guix licenses) #:prefix license:)
   (guix download)
   (guix build-system gnu)
+	(guix gexp)
   (gnu packages)
   (gnu packages autotools)
   (gnu packages guile)
   (gnu packages guile-xyz)
   (gnu packages pkg-config)
-  (gnu packages texinfo))
+  (gnu packages texinfo)
+	(srfi srfi-1))
+
+(define (keep-file? file stat)
+  (not (any (lambda (my-string)
+              (string-contains file my-string))
+            (list ".git" ".dir-locals.el" "guix.scm"))))
 
 (package
   (name "gib-gab-gob")
   (version "0.1")
-  (source "./gib-gab-gob-0.1.tar.gz")
+  (source (local-file (dirname (current-filename))
+                      #:recursive? #t
+                      #:select? keep-file?))
   (build-system gnu-build-system)
   (arguments
     `(#:modules