Initial commit

Safsaf is a Guile web framework, written using Claude Code running
Claude Opus 4.6, based off of the Guix Data Service, Nar Herder and
Guix Build Coordinator codebases.

.dir-locals.el

@@ -0,0 +1,23 @@
+((scheme-mode
+  ;; Safsaf forms
+  (eval . (put 'route-group 'scheme-indent-function 1))
+  (eval . (put 'wrap-routes 'scheme-indent-function 1))
+
+  ;; Safsaf test framework
+  (eval . (put 'test 'scheme-indent-function 1))
+  (eval . (put 'suite 'scheme-indent-function 1))
+  (eval . (put 'define-suite 'scheme-indent-function 1))
+
+  ;; Guile / SRFI
+  (eval . (put 'parameterize 'scheme-indent-function 1))
+  (eval . (put 'with-exception-handler 'scheme-indent-function 2))
+  (eval . (put 'call-with-output-string 'scheme-indent-function 0))
+  (eval . (put 'call-with-port 'scheme-indent-function 1))
+  (eval . (put 'syntax-case 'scheme-indent-function 2))
+
+  ;; Knots / Fibers
+  (eval . (put 'run-fibers 'scheme-indent-function 0))
+  (eval . (put 'call-with-sigint 'scheme-indent-function 0))
+  (eval . (put 'with-resource-from-pool 'scheme-indent-function 2))
+  (eval . (put 'fibers-let 'scheme-indent-function 1))
+  (eval . (put 'with-fibers-timeout 'scheme-indent-function 1))))