blob: a73ccc658b4423aca49d7fc617baad973365bbc1 (
plain) (
blame)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
|
{-# OPTIONS_GHC -Wno-missing-export-lists #-}
module Montis.Dsl.Buttons where
import Data.Word
#include </usr/include/linux/input-event-codes.h>
data Button = Button Word32
btnMisc :: Button
btnMisc = Button #const BTN_MISC
btn0 :: Button
btn0 = Button #const BTN_0
btn1 :: Button
btn1 = Button #const BTN_1
btn2 :: Button
btn2 = Button #const BTN_2
btn3 :: Button
btn3 = Button #const BTN_3
btn4 :: Button
btn4 = Button #const BTN_4
btn5 :: Button
btn5 = Button #const BTN_5
btn6 :: Button
btn6 = Button #const BTN_6
btn7 :: Button
btn7 = Button #const BTN_7
btn8 :: Button
btn8 = Button #const BTN_8
btn9 :: Button
btn9 = Button #const BTN_9
btnMouse :: Button
btnMouse = Button #const BTN_MOUSE
btnLeft :: Button
btnLeft = Button #const BTN_LEFT
btnRight :: Button
btnRight = Button #const BTN_RIGHT
btnMiddle :: Button
btnMiddle = Button #const BTN_MIDDLE
btnSide :: Button
btnSide = Button #const BTN_SIDE
btnExtra :: Button
btnExtra = Button #const BTN_EXTRA
btnForward :: Button
btnForward = Button #const BTN_FORWARD
btnBack :: Button
btnBack = Button #const BTN_BACK
btnTask :: Button
btnTask = Button #const BTN_TASK
btnJoystick :: Button
btnJoystick = Button #const BTN_JOYSTICK
btnTrigger :: Button
btnTrigger = Button #const BTN_TRIGGER
btnThumb :: Button
btnThumb = Button #const BTN_THUMB
btnThumb2 :: Button
btnThumb2 = Button #const BTN_THUMB2
btnTop :: Button
btnTop = Button #const BTN_TOP
btnTop2 :: Button
btnTop2 = Button #const BTN_TOP2
btnPinkie :: Button
btnPinkie = Button #const BTN_PINKIE
btnBase :: Button
btnBase = Button #const BTN_BASE
btnBase2 :: Button
btnBase2 = Button #const BTN_BASE2
btnBase3 :: Button
btnBase3 = Button #const BTN_BASE3
btnBase4 :: Button
btnBase4 = Button #const BTN_BASE4
btnBase5 :: Button
btnBase5 = Button #const BTN_BASE5
btnBase6 :: Button
btnBase6 = Button #const BTN_BASE6
btnDead :: Button
btnDead = Button #const BTN_DEAD
btnGamepad :: Button
btnGamepad = Button #const BTN_GAMEPAD
btnSouth :: Button
btnSouth = Button #const BTN_SOUTH
btnA :: Button
btnA = Button #const BTN_A
btnEast :: Button
btnEast = Button #const BTN_EAST
btnB :: Button
btnB = Button #const BTN_B
btnC :: Button
btnC = Button #const BTN_C
btnNorth :: Button
btnNorth = Button #const BTN_NORTH
btnX :: Button
btnX = Button #const BTN_X
btnWest :: Button
btnWest = Button #const BTN_WEST
btnY :: Button
btnY = Button #const BTN_Y
btnZ :: Button
btnZ = Button #const BTN_Z
btnTl :: Button
btnTl = Button #const BTN_TL
btnTr :: Button
btnTr = Button #const BTN_TR
btnTl2 :: Button
btnTl2 = Button #const BTN_TL2
btnTr2 :: Button
btnTr2 = Button #const BTN_TR2
btnSelect :: Button
btnSelect = Button #const BTN_SELECT
btnStart :: Button
btnStart = Button #const BTN_START
btnMode :: Button
btnMode = Button #const BTN_MODE
btnThumbl :: Button
btnThumbl = Button #const BTN_THUMBL
btnThumbr :: Button
btnThumbr = Button #const BTN_THUMBR
btnDigi :: Button
btnDigi = Button #const BTN_DIGI
btnToolPen :: Button
btnToolPen = Button #const BTN_TOOL_PEN
btnToolRubber :: Button
btnToolRubber = Button #const BTN_TOOL_RUBBER
btnToolBrush :: Button
btnToolBrush = Button #const BTN_TOOL_BRUSH
btnToolPencil :: Button
btnToolPencil = Button #const BTN_TOOL_PENCIL
btnToolAirbrush :: Button
btnToolAirbrush = Button #const BTN_TOOL_AIRBRUSH
btnToolFinger :: Button
btnToolFinger = Button #const BTN_TOOL_FINGER
btnToolMouse :: Button
btnToolMouse = Button #const BTN_TOOL_MOUSE
btnToolLens :: Button
btnToolLens = Button #const BTN_TOOL_LENS
btnToolQuinttap :: Button
btnToolQuinttap = Button #const BTN_TOOL_QUINTTAP
btnStylus3 :: Button
btnStylus3 = Button #const BTN_STYLUS3
btnTouch :: Button
btnTouch = Button #const BTN_TOUCH
btnStylus :: Button
btnStylus = Button #const BTN_STYLUS
btnStylus2 :: Button
btnStylus2 = Button #const BTN_STYLUS2
btnToolDoubletap :: Button
btnToolDoubletap = Button #const BTN_TOOL_DOUBLETAP
btnToolTripletap :: Button
btnToolTripletap = Button #const BTN_TOOL_TRIPLETAP
btnToolQuadtap :: Button
btnToolQuadtap = Button #const BTN_TOOL_QUADTAP
btnWheel :: Button
btnWheel = Button #const BTN_WHEEL
btnGearDown :: Button
btnGearDown = Button #const BTN_GEAR_DOWN
btnGearUp :: Button
btnGearUp = Button #const BTN_GEAR_UP
|
