1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(pingus-controller
(standard-pointer
(usbmouse:pointer (device "/dev/input/mx500")))
(standard-scroller
(usbmouse:scroller (device "/dev/input/marblemouse")))
(primary-button
(usbmouse:button (device "/dev/input/mx500") (button 0)))
(secondary-button
(usbmouse:button (device "/dev/input/mx500") (button 1)))
(pause-button
(usbmouse:button (device "/dev/input/mx500") (button 4)))
(fast-forward-button
(usbmouse:button (device "/dev/input/mx500") (button 3)))
;; (armageddon-button
;; (usbmouse:button (device "/dev/input/mx500") (button 4)))
(escape-button
(sdl:keyboard-button (key "escape")))
(action-up-button
(usbmouse:button (device "/dev/input/mx500") (button 6)))
(action-down-button
(usbmouse:button (device "/dev/input/mx500") (button 5)))
)
;; EOF ;;
|
