((org-mode
  .
  ((org-archive-location . "::* Archived Tasks")))
 (scheme-mode
  .
  ((eval . (put 'call-with-transform-excursion 'scheme-indent-function 1))
   (eval . (put 'with-transform-excursion 'scheme-indent-function 1))
   (eval . (put 'graphics-model-view-excursion 'scheme-indent-function 1))
   (eval . (put 'graphics-projection-excursion 'scheme-indent-function 1))
   (eval . (put 'graphics-uniform-excursion 'scheme-indent-function 2))
   (eval . (put 'graphics-texture-excursion 'scheme-indent-function 1))
   (eval . (put 'graphics-mesh-excursion 'scheme-indent-function 1))
   (eval . (put 'with-blend-mode 'scheme-indent-function 1))
   (eval . (put 'with-depth-test 'scheme-indent-function 1))
   (eval . (put 'with-texture 'scheme-indent-function 1))
   (eval . (put 'with-shader 'scheme-indent-function 1))
   (eval . (put 'with-mesh 'scheme-indent-function 1))
   (eval . (put 'with-framebuffer 'scheme-indent-function 1))
   (eval . (put 'with-viewport 'scheme-indent-function 1))
   (eval . (put 'with-projection-mul 'scheme-indent-function 1))
   (eval . (put 'with-model-view-mul 'scheme-indent-function 1))
   (eval . (put 'with-camera 'scheme-indent-function 1))
   (eval . (put 'with-color 'scheme-indent-function 1))
   (eval . (put 'with-vertex-buffer 'scheme-indent-function 1))
   (eval . (put 'with-sprite-batch 'scheme-indent-function 2))
   (eval . (put 'uniform-let 'scheme-indent-function 1))
   (eval . (put 'call-with-surface 'scheme-indent-function 1))
   (eval . (put 'render/signal 'scheme-indent-function 1))
   (eval . (put 'with-graphics 'scheme-indent-function 1))
   (eval . (put 'with-gl-bind-texture 'scheme-indent-function 2))
   (eval . (put 'call-with-actor 'scheme-indent-function 1)))))