24 lines
980 B
EmacsLisp
24 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))))
|