blob: d9a19a47a1cd5e995a2a20dc33aa22e645ef135a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
((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)))))
|
