;; mouse

((sdl2:scancode= scv :scancode-c) (sdl2:show-cursor))
((sdl2:scancode= scv :scancode-h) (sdl2:hide-cursor))

;; ...

(:mousemotion (:x x :y y :xrel xr :yrel yr :state s)
              (format t "mouse pos/rel [state]: ~a/~a ~a/~a [~a]~%"
                      x xr y yr s) )

;; keyup

(:keyup (:keysym keysym)
        (let ((ks (sdl2:scancode-value keysym)))
          (when (sdl2:scancode= ks :scancode-escape)
            (sdl2:push-event :quit) )))

;; controllers

(controllers-all (controllers-init))
(controllers     (car  controllers-all))
(haptic          (cadr controllers-all))

;; ...

(:controllerbuttondown (:which id)
                       (let ((h (cdr (assoc id haptic))))
                         (when h
                           (sdl2:rumble-play h 1.0 100) )))

;; ...

(controllers-deinit controllers haptic)