summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-04-18 11:56:14 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-04-18 11:56:14 -0400
commitd392bd16efc990bb135275e4a1c7919e300db181 (patch)
tree2057da321ccd8f815d02d33c1acabfbc66968b9e
parentc03652fbc68b781f78196cedc2086db256c46d9e (diff)
Add .dir-locals.el file.
-rw-r--r--.dir-locals.el31
1 files changed, 31 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 0000000..37b827b
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1,31 @@
+((scheme-mode
+ .
+ ((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 '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))
+ (eval . (put 'run-script 'scheme-indent-function 1)))))