From 12cffc7e94af0d7296ab8f1b852733cd7b88fb74 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 19 Nov 2020 19:40:53 -0500 Subject: Update .dir-locals.el. --- .dir-locals.el | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/.dir-locals.el b/.dir-locals.el index 35db365..3a62615 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -1,6 +1,10 @@ -((scheme-mode +((nil . ((compile-command . "make -j$(nproc)"))) + (scheme-mode . - ((eval . (put 'with-blend-mode 'scheme-indent-function 1)) + ((eval . (put 'sdl2:call-with-surface '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)) @@ -9,11 +13,15 @@ (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-mapped-typed-buffer 'scheme-indent-function 1)) - (eval . (put 'uniform-let 'scheme-indent-function 1)) - (eval . (put 'call-with-surface '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-buffer 'scheme-indent-function 1)) - (eval . (put 'with-current-buffer 'scheme-indent-function 1)) - (eval . (put 'with-dynamic-state '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 'translate 'scheme-indent-function 1)) + (eval . (put 'rotate 'scheme-indent-function 1)) + (eval . (put 'scale 'scheme-indent-function 1))))) -- cgit v1.2.3