((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))))