diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-03-28 20:45:11 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-03-28 20:45:11 -0400 |
| commit | cfe2a2f4ffd339bce763764098a6a415653b5acc (patch) | |
| tree | 5450ff49cbc0de476f70d53e60f607103cee6587 /.dir-locals.el | |
| parent | e80e6d4f79d98bd95eb0bbd90fc2a07c22241e83 (diff) | |
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.
(<color>, <palette>, <pixel-format>): 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.
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 5 |
1 files changed, 4 insertions, 1 deletions
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))))) |