summaryrefslogtreecommitdiff
path: root/sdl2/events.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2022-10-01 21:30:42 -0400
committerDavid Thompson <dthompson2@worcester.edu>2022-10-01 21:30:42 -0400
commit4811db26a9142ac587649cfa325e0bfc5b9f761e (patch)
tree6373639ccf2d3c77027bd7a6f7a6f8ace260d5d6 /sdl2/events.scm
parent7508e7592883c49a5a0672d4fd9d9ae69c0b1ab0 (diff)
events: Support additional controller buttons.
Diffstat (limited to 'sdl2/events.scm')
-rw-r--r--sdl2/events.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/sdl2/events.scm b/sdl2/events.scm
index 10a6ee1..b019ad4 100644
--- a/sdl2/events.scm
+++ b/sdl2/events.scm
@@ -1230,7 +1230,14 @@
((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_UP) 'dpad-up)
((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_DOWN) 'dpad-down)
((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_LEFT) 'dpad-left)
- ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_RIGHT) 'dpad-right)))
+ ((= button ffi:SDL_CONTROLLER_BUTTON_DPAD_RIGHT) 'dpad-right)
+ ((= button ffi:SDL_CONTROLLER_BUTTON_MISC1) 'misc-1)
+ ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE1) 'paddle-1)
+ ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE2) 'paddle-2)
+ ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE3) 'paddle-3)
+ ((= button ffi:SDL_CONTROLLER_BUTTON_PADDLE4) 'paddle-4)
+ ((= button ffi:SDL_CONTROLLER_BUTTON_TOUCHPAD) 'touch-pad)
+ (else 'unknown)))
(match (parse-c-struct ptr types)
((_ timestamp which button state)