From d392bd16efc990bb135275e4a1c7919e300db181 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 18 Apr 2021 11:56:14 -0400 Subject: Add .dir-locals.el file. --- .dir-locals.el | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 .dir-locals.el 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))))) -- cgit v1.2.3