Christopher Baines
5b0e6397dc
All checks were successful
/ test (push) Successful in 9s
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.
23 lines
980 B
EmacsLisp
23 lines
980 B
EmacsLisp
((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))))
|