~ruther/guix-local: Augment `.dir-locals.el'.

11 files changed, 4 insertions(+), 44 deletions(-)

M .dir-locals.el
M guix-build.in
M tests/base32.scm
M tests/build-utils.scm
M tests/builders.scm
M tests/derivations.scm
M tests/packages.scm
M tests/snix.scm
M tests/store.scm
M tests/union.scm
M tests/utils.scm

M .dir-locals.el => .dir-locals.el +4 -0

@@ 6,6 6,10 @@
  (scheme-mode
   .
   ((indent-tabs-mode . nil)
+   (eval . (put 'test-assert 'scheme-indent-function 1))
+   (eval . (put 'test-equal 'scheme-indent-function 1))
+   (eval . (put 'call-with-input-string 'scheme-indent-function 1))
+   (eval . (put 'guard 'scheme-indent-function 1))
    (eval . (put 'lambda* 'scheme-indent-function 1))
    (eval . (put 'substitute* 'scheme-indent-function 1))
    (eval . (put 'with-directory-excursion 'scheme-indent-function 1))

M guix-build.in => guix-build.in +0 -4

@@ 301,7 301,3 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n"))
                                              (derivation-path->output-paths drv)))
                                       drv)
                                  roots)))))))))
-
-;; Local Variables:
-;; eval: (put 'guard 'scheme-indent-function 1)
-;; End:

M tests/base32.scm => tests/base32.scm +0 -4

@@ 95,7 95,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:

M tests/build-utils.scm => tests/build-utils.scm +0 -6

@@ 84,9 84,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'test-equal 'scheme-indent-function 1)
-;;; eval: (put 'call-with-input-string 'scheme-indent-function 1)
-;;; End:

M tests/builders.scm => tests/builders.scm +0 -4

@@ 93,7 93,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:

M tests/derivations.scm => tests/derivations.scm +0 -5

@@ 547,8 547,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'guard 'scheme-indent-function 1)
-;;; End:

M tests/packages.scm => tests/packages.scm +0 -2

@@ 168,7 168,5 @@
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
 
 ;;; Local Variables:
-;;; eval: (put 'test-equal 'scheme-indent-function 2)
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
 ;;; eval: (put 'dummy-package 'scheme-indent-function 1)
 ;;; End:

M tests/snix.scm => tests/snix.scm +0 -5

@@ 72,8 72,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'guard 'scheme-indent-function 1)
-;;; End:

M tests/store.scm => tests/store.scm +0 -4

@@ 81,7 81,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End:

M tests/union.scm => tests/union.scm +0 -6

@@ 119,9 119,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; eval: (put 'test-equal 'scheme-indent-function 1)
-;;; eval: (put 'call-with-input-string 'scheme-indent-function 1)
-;;; End:

M tests/utils.scm => tests/utils.scm +0 -4

@@ 183,7 183,3 @@
 
 
 (exit (= (test-runner-fail-count (test-runner-current)) 0))
-
-;;; Local Variables:
-;;; eval: (put 'test-assert 'scheme-indent-function 1)
-;;; End: