WingMan RumblePad settings for cl-gamepad on Darwin

gamepad-test.lisp

(in-package :cl-user)
(ql:quickload :cl-gamepad)
(rename-package :org.shirakumo.fraf.gamepad :org.shirakumo.fraf.gamepad '(:gamepad))

(gamepad:init)
(defparameter d (car (gamepad:list-devices)))
;; to configure WingMan RumblePad:
(gamepad:configure-device d :button-labels #(:A :B :C :X :Y :Z :SELECT :L1 :R1)
                            :axis-labels #(:DPAD-H :DPAD-V :L-H :L-V :R-H :R-V :THROTTLE))

(in-package :gamepad)
(define-device-mapping (:IOKIT 1133 49674)
  :name "WingMan RumblePad"
  :buttons (589825 :A 589826 :B 589827 :C
            589828 :X 589829 :Y 589830 :Z
            589833 :SELECT 589831 :L1 589832 :R1)
  :axes (65650 :DPAD-H 65651 :DPAD-V
         65584 :L-H 65585 :L-V
         65589 :R-H 65590 :R-V
         65586 :THROTTLE))