blob: f8534e665cf53cfbb3a0ed96129c0ff36e20241a (
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
|
((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)))))
|
