From 28093b843e8aeebb8028ccd1999698a6330c1bde Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Fri, 17 May 2019 13:25:56 -0400
Subject: [PATCH] Clean up '.dir-locals.el'.

* .dir-locals.el: Change indentation, and make sure that tabs are used
when editing Makefiles.
---
 .dir-locals.el | 57 ++++++++++++++++++++++++--------------------------
 1 file changed, 27 insertions(+), 30 deletions(-)

diff --git a/.dir-locals.el b/.dir-locals.el
index 3e18df0..f357b21 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,31 +1,28 @@
-((nil
-  .
-  ((indent-tabs-mode . nil)))
- (makefile-mode
-  (indent-tabs-mode . t))
+((makefile-mode
+  . ((indent-tabs-mode . t)))
  (scheme-mode
-  .
-  ((geiser-active-implementations . (guile))
-   (eval
-    .
-    (progn
-      (let ((top (locate-dominating-file default-directory ".dir-locals.el")))
-        (add-to-list 'geiser-guile-load-path top))))
-   (eval . (put '<sh-case> 'scheme-indent-function 1))
-   (eval . (put '<sh-defun> 'scheme-indent-function 1))
-   (eval . (put '<sh-exec-let> 'scheme-indent-function 1))
-   (eval . (put '<sh-for> 'scheme-indent-function 1))
-   (eval . (put '<sh-until> 'scheme-indent-function 1))
-   (eval . (put '<sh-while> 'scheme-indent-function 1))
-   (eval . (put '<sh-with-redirects> 'scheme-indent-function 1))
-   (eval . (put 'call-with-backquoted-input-port 'scheme-indent-function 1))
-   (eval . (put 'make-script 'scheme-indent-function 1))
-   (eval . (put 'sh:for 'scheme-indent-function 1))
-   (eval . (put 'sh:subshell 'scheme-indent-function 0))
-   (eval . (put 'sh:substitute-command 'scheme-indent-function 0))
-   (eval . (put 'sh:with-redirects 'scheme-indent-function 1))
-   (eval . (put 'call-with-break 'scheme-indent-function 0))
-   (eval . (put 'call-with-continue 'scheme-indent-function 0))
-   (eval . (put 'with-arguments 'scheme-indent-function 1))
-   (eval . (put 'with-environ 'scheme-indent-function 1))
-   (eval . (put 'with-variables 'scheme-indent-function 1)))))
+  . ((geiser-active-implementations . (guile))
+     (eval . (progn
+               (let ((top (locate-dominating-file default-directory
+                                                  ".dir-locals.el")))
+                 (add-to-list 'geiser-guile-load-path top))))
+     (eval . (put '<sh-case> 'scheme-indent-function 1))
+     (eval . (put '<sh-defun> 'scheme-indent-function 1))
+     (eval . (put '<sh-exec-let> 'scheme-indent-function 1))
+     (eval . (put '<sh-for> 'scheme-indent-function 1))
+     (eval . (put '<sh-until> 'scheme-indent-function 1))
+     (eval . (put '<sh-while> 'scheme-indent-function 1))
+     (eval . (put '<sh-with-redirects> 'scheme-indent-function 1))
+     (eval . (put 'call-with-backquoted-input-port 'scheme-indent-function 1))
+     (eval . (put 'make-script 'scheme-indent-function 1))
+     (eval . (put 'sh:for 'scheme-indent-function 1))
+     (eval . (put 'sh:subshell 'scheme-indent-function 0))
+     (eval . (put 'sh:substitute-command 'scheme-indent-function 0))
+     (eval . (put 'sh:with-redirects 'scheme-indent-function 1))
+     (eval . (put 'call-with-break 'scheme-indent-function 0))
+     (eval . (put 'call-with-continue 'scheme-indent-function 0))
+     (eval . (put 'with-arguments 'scheme-indent-function 1))
+     (eval . (put 'with-environ 'scheme-indent-function 1))
+     (eval . (put 'with-variables 'scheme-indent-function 1))))
+ (nil
+  . ((indent-tabs-mode . nil))))