module Wetterhorn.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