blob: 41a954bbc025c2a9d6e09a6a4f1178ee8c237dd9 (
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
28
29
30
31
32
33
34
35
36
37
|
((nil . ((geiser-guile-binary . "guile")))
(scheme-mode
.
((eval . (put 'with-tests 'scheme-indent-function 1))
(eval . (put 'test-group 'scheme-indent-function 1))
(eval . (put 'sdl2:call-with-surface 'scheme-indent-function 1))
(eval . (put 'call-with-loaded-image 'scheme-indent-function 3))
(eval . (put 'with-ellipsis 'scheme-indent-function 1))
(eval . (put 'with-blend-mode 'scheme-indent-function 1))
(eval . (put 'with-polygon-mode 'scheme-indent-function 1))
(eval . (put 'with-cull-face-mode 'scheme-indent-function 1))
(eval . (put 'with-depth-test 'scheme-indent-function 1))
(eval . (put 'with-texture 'scheme-indent-function 2))
(eval . (put 'with-shader 'scheme-indent-function 1))
(eval . (put 'with-vertex-array 'scheme-indent-function 1))
(eval . (put 'with-projection 'scheme-indent-function 1))
(eval . (put 'with-framebuffer 'scheme-indent-function 1))
(eval . (put 'with-viewport 'scheme-indent-function 1))
(eval . (put 'with-mapped-buffer 'scheme-indent-function 1))
(eval . (put 'with-new-rect 'scheme-indent-function 1))
(eval . (put 'with-new-vec2 'scheme-indent-function 1))
(eval . (put 'with-dynamic-state 'scheme-indent-function 1))
(eval . (put 'with-mapped-buffer-view 'scheme-indent-function 1))
(eval . (put 'with-stencil-test 'scheme-indent-function 1))
(eval . (put 'with-multisample 'scheme-indent-function 1))
(eval . (put 'with-color-mask 'scheme-indent-function 1))
(eval . (put 'with-style 'scheme-indent-function 1))
(eval . (put 'with-transform 'scheme-indent-function 1))
(eval . (put 'with-geometry 'scheme-indent-function 1))
(eval . (put 'with-geometry* 'scheme-indent-function 2))
(eval . (put 'with-graphics-state 'scheme-indent-function 1))
(eval . (put 'with-graphics-state! 'scheme-indent-function 1))
(eval . (put 'with-error-handling 'scheme-indent-function 1))
(eval . (put 'translate 'scheme-indent-function 1))
(eval . (put 'rotate 'scheme-indent-function 1))
(eval . (put 'scale 'scheme-indent-function 1))
(eval . (put 'for-range 'scheme-indent-function 1)))))
|
