Add .dir-locals

And tweak some indentation.

.dir-locals.el

@@ -1,9 +1,13 @@
 ((nil
-  . ((indent-tabs-mode         . nil)
-     (require-final-newline    . t)
-     (show-trailing-whitespace . t)))
+  (indent-tabs-mode         . nil)
+  (require-final-newline    . t)
+  (show-trailing-whitespace . t))
  (makefile-mode
-  . ((indent-tabs-mode . t)))
+  (indent-tabs-mode . t))
  (prog-mode
-  . ((comment-column . 40)
-     (fill-column    . 70))))
+  (comment-column . 40)
+  (fill-column    . 70))
+ (racket-mode
+  ;; Better indentation for quoted xexprs and for at-exprs:
+  (racket-indent-sequence-depth    . 3)
+  (racket-indent-curly-as-sequence . t)))

cmds.rkt

@@ -324,9 +324,9 @@
 (define (type-or-contract v) ;any/c -> (or/c #f string?)
   ;; 1. Try using Typed Racket's REPL simplified type.
   (try (match (with-output-to-string
-                  (λ ()
-                    ((current-eval)
-                     (cons '#%top-interaction v))))
+                (λ ()
+                  ((current-eval)
+                   (cons '#%top-interaction v))))
          [(pregexp "^- : (.*) \\.\\.\\..*\n" (list _ t)) t]
          [(pregexp "^- : (.*)\n$"            (list _ t)) t])
        #:catch exn:fail? _
@@ -679,12 +679,12 @@
       (if first? "" (make-string indent #\space)))
     (define (prn-form pre this more)
       (define new-indent (+ indent (+ 2 (string-length pre))))
-       (printf "~a(~a " (indent-string) pre)
-       (prn this #t new-indent)
-       (for ([x more])
-         (newline)
-         (prn x #f new-indent))
-       (display ")"))
+      (printf "~a(~a " (indent-string) pre)
+      (prn this #t new-indent)
+      (for ([x more])
+        (newline)
+        (prn x #f new-indent))
+      (display ")"))
     (match x
       [(list 'require)
        (void)]

run.rkt

@@ -154,7 +154,7 @@
   (define cr-submod `(submod ,@(match path
                                  [(list 'submod sub-paths ...) sub-paths]
                                  [_ (list path)])
-                             configure-runtime))
+                      configure-runtime))
   (when (module-declared? cr-submod)
     (dynamic-require cr-submod #f)))