blob: 3af9ad28446f041919f7a0dca3c4a8ba76178b7f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
((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 'uniform-let 'scheme-indent-function 1))
(eval . (put 'call-with-surface 'scheme-indent-function 1)))))
|
