From cfe2a2f4ffd339bce763764098a6a415653b5acc Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 28 Mar 2017 20:45:11 -0400 Subject: surface: Parse SDL_PixelFormat, SDL_Palette, and SDL_Color structs. * sdl2/surface.scm (color?, make-color, color-r, color-g, color-b, color-a, palette?, palette-length, palette-colors, pixel-format?, pixel-format-bits-per-pixel, pixel-format-bytes-per-pixel, pixel-format-red-mask, pixel-format-green-mask, pixel-format-blue-mask, pixel-format-alpha-mask, surface-pixel-format, wrap-palette, unwrap-palette, wrap-pixel-format, unwrap-pixel-format): New procedures. (, , ): New types. (%palette-types, %pixel-format-types): New variables. (palette-parse-match, pixel-format-parse-match): New syntax. * .dir-locals.el: Add indent rules for new macros. --- .dir-locals.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to '.dir-locals.el') diff --git a/.dir-locals.el b/.dir-locals.el index 6b4443d..37f6de9 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -2,4 +2,7 @@ . ((eval . (put 'call-with-window 'scheme-indent-function 1)) (eval . (put 'call-with-renderer 'scheme-indent-function 1)) - (eval . (put 'surface-parse-match 'scheme-indent-function 1))))) + (eval . (put 'surface-parse-match 'scheme-indent-function 1)) + (eval . (put 'pixel-format-parse-match 'scheme-indent-function 1)) + (eval . (put 'palette-parse-match 'scheme-indent-function 1)) + (eval . (put 'color-parse-match 'scheme-indent-function 1))))) -- cgit v1.2.3