Mess up hall's formating

bootstrap.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+autoreconf -vif

gib-gab-gob/board.scm

@@ -12,6 +12,9 @@
 (define (make-board)
   (make-array #f ggg-size ggg-size))
 
+(define (board-ref board x y)
+  (array-ref board y x))
+
 (define (board-assert-vacant board x y)
   (define ref (board-ref board x y))
   (if ref (error "That space is already occupied with:" ref) ref))

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

hall.scm

@@ -16,31 +16,32 @@
   (files (libraries
            ((directory
               "gib-gab-gob"
-              ((compiled-scheme-file "game")
-               (scheme-file "rps")
+              ((compiled-scheme-file "board")
+               (compiled-scheme-file "game")
                (scheme-file "game")
-               (compiled-scheme-file "board")
                (scheme-file "board")
+               (scheme-file "rps")
                (compiled-scheme-file "rps")))))
-         (tests ((directory "tests" ())))
+         (tests ())
          (programs
            ((directory
               "scripts"
               ((in-file "make-joiner")
                (in-file "make-initiator")
-               (text-file "make-initiator")
-               (text-file "make-joiner")))))
-         (documentation ((org-file "README")))
+               (text-file "make-joiner")
+               (text-file "make-initiator")))))
+         (documentation
+           ((org-file "README") (text-file "COPYING")))
          (infrastructure
-           ((in-file "pre-inst-env")
+           ((automake-file "Makefile")
+            (autoconf-file "configure")
+            (text-file ".gitignore")
+            (scheme-file "hall")
             (directory
               "build-aux"
-              ((tex-file "texinfo")
-               (scheme-file "test-driver")
+              ((scheme-file "test-driver")
                (text-file "missing")
-               (text-file "install-sh")
-               (text-file "mdate-sh")))
-            (scheme-file "hall")
-            (text-file ".gitignore")
-            (autoconf-file "configure")
-            (automake-file "Makefile")))))
+               (text-file "install-sh")))
+            (in-file "pre-inst-env")
+            (scheme-file "guix")
+            (shell-file "bootstrap")))))