Multimedia keys support for EZConfig

Ignore-this: 21183dd7c192682daa18e3768828f88d

darcs-hash:20090207173330-7ba7e-3339e560daae7088e4ebe83bd5879cb405814747.gz

1 files changed, 283 insertions, 11 deletions

diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs
index c37f94b..485a150 100644
--- a/XMonad/Util/EZConfig.hs
+++ b/XMonad/Util/EZConfig.hs
@@ -216,16 +216,134 @@ removeMouseBindings conf mouseBindingList =
 -- > <KP_Subtract>
 -- > <KP_Decimal>
 -- > <KP_Divide>
--- > <KP_0>
--- > <KP_1>
--- > <KP_2>
--- > <KP_3>
--- > <KP_4>
--- > <KP_5>
--- > <KP_6>
--- > <KP_7>
--- > <KP_8>
--- > <KP_9>
+-- > <KP_0>-<KP_9>
+--
+-- Long list of multimedia keys. Please note that not all keys may be
+-- present in your particular setup althrough most likely they will do.
+--
+-- > <XF86ModeLock>
+-- > <XF86MonBrightnessUp>
+-- > <XF86MonBrightnessDown>
+-- > <XF86KbdLightOnOff>
+-- > <XF86KbdBrightnessUp>
+-- > <XF86KbdBrightnessDown>
+-- > <XF86Standby>
+-- > <XF86AudioLowerVolume>
+-- > <XF86AudioMute>
+-- > <XF86AudioRaiseVolume>
+-- > <XF86AudioPlay>
+-- > <XF86AudioStop>
+-- > <XF86AudioPrev>
+-- > <XF86AudioNext>
+-- > <XF86HomePage>
+-- > <XF86Mail>
+-- > <XF86Start>
+-- > <XF86Search>
+-- > <XF86AudioRecord>
+-- > <XF86Calculator>
+-- > <XF86Memo>
+-- > <XF86ToDoList>
+-- > <XF86Calendar>
+-- > <XF86PowerDown>
+-- > <XF86ContrastAdjust>
+-- > <XF86RockerUp>
+-- > <XF86RockerDown>
+-- > <XF86RockerEnter>
+-- > <XF86Back>
+-- > <XF86Forward>
+-- > <XF86Stop>
+-- > <XF86Refresh>
+-- > <XF86PowerOff>
+-- > <XF86WakeUp>
+-- > <XF86Eject>
+-- > <XF86ScreenSaver>
+-- > <XF86WWW>
+-- > <XF86Sleep>
+-- > <XF86Favorites>
+-- > <XF86AudioPause>
+-- > <XF86AudioMedia>
+-- > <XF86MyComputer>
+-- > <XF86VendorHome>
+-- > <XF86LightBulb>
+-- > <XF86Shop>
+-- > <XF86History>
+-- > <XF86OpenURL>
+-- > <XF86AddFavorite>
+-- > <XF86HotLinks>
+-- > <XF86BrightnessAdjust>
+-- > <XF86Finance>
+-- > <XF86Community>
+-- > <XF86AudioRewind>
+-- > <XF86XF86BackForward>
+-- > <XF86Launch0>-<XF86Launch9>, <XF86LaunchA>-<XF86LaunchF>
+-- > <XF86ApplicationLeft>
+-- > <XF86ApplicationRight>
+-- > <XF86Book>
+-- > <XF86CD>
+-- > <XF86Calculater>
+-- > <XF86Clear>
+-- > <XF86Close>
+-- > <XF86Copy>
+-- > <XF86Cut>
+-- > <XF86Display>
+-- > <XF86DOS>
+-- > <XF86Documents>
+-- > <XF86Excel>
+-- > <XF86Explorer>
+-- > <XF86Game>
+-- > <XF86Go>
+-- > <XF86iTouch>
+-- > <XF86LogOff>
+-- > <XF86Market>
+-- > <XF86Meeting>
+-- > <XF86MenuKB>
+-- > <XF86MenuPB>
+-- > <XF86MySites>
+-- > <XF86New>
+-- > <XF86News>
+-- > <XF86OfficeHome>
+-- > <XF86Open>
+-- > <XF86Option>
+-- > <XF86Paste>
+-- > <XF86Phone>
+-- > <XF86Q>
+-- > <XF86Reply>
+-- > <XF86Reload>
+-- > <XF86RotateWindows>
+-- > <XF86RotationPB>
+-- > <XF86RotationKB>
+-- > <XF86Save>
+-- > <XF86ScrollUp>
+-- > <XF86ScrollDown>
+-- > <XF86ScrollClick>
+-- > <XF86Send>
+-- > <XF86Spell>
+-- > <XF86SplitScreen>
+-- > <XF86Support>
+-- > <XF86TaskPane>
+-- > <XF86Terminal>
+-- > <XF86Tools>
+-- > <XF86Travel>
+-- > <XF86UserPB>
+-- > <XF86User1KB>
+-- > <XF86User2KB>
+-- > <XF86Video>
+-- > <XF86WheelButton>
+-- > <XF86Word>
+-- > <XF86Xfer>
+-- > <XF86ZoomIn>
+-- > <XF86ZoomOut>
+-- > <XF86Away>
+-- > <XF86Messenger>
+-- > <XF86WebCam>
+-- > <XF86MailForward>
+-- > <XF86Pictures>
+-- > <XF86Music>
+-- > <XF86_Switch_VT_1>-<XF86_Switch_VT_12>
+-- > <XF86_Ungrab>
+-- > <XF86_ClearGrab>
+-- > <XF86_Next_VMode>
+-- > <XF86_Prev_VMode>
 
 mkKeymap :: XConfig l -> [(String, X ())] -> M.Map (KeyMask, KeySym) (X ())
 mkKeymap c = M.fromList . mkSubmaps . readKeymap c
@@ -304,7 +422,7 @@ parseSpecial = do char '<'
 
 -- | A list of all special key names and their associated KeySyms.
 keyNames :: [(String, KeySym)]
-keyNames = functionKeys ++ specialKeys
+keyNames = functionKeys ++ specialKeys ++ multimediaKeys
 
 -- | A list pairing function key descriptor strings (e.g. @\"<F2>\"@) with
 --   the associated KeySyms.
@@ -377,6 +495,160 @@ specialKeys = [ ("Backspace"  , xK_BackSpace)
               , ("KP_9"       , xK_KP_9)
               ]
 
+-- | List of multimedai keys. If X server does not know about some
+-- | keysym it's omitted from list. (stringToKeysym returns noSymbol in this case)
+multimediaKeys :: [(String, KeySym)]
+multimediaKeys = filter ((/= noSymbol) . snd) . map (id &&& stringToKeysym) $
+                 [ "XF86ModeLock"
+                 , "XF86MonBrightnessUp"
+                 , "XF86MonBrightnessDown"
+                 , "XF86KbdLightOnOff"
+                 , "XF86KbdBrightnessUp"
+                 , "XF86KbdBrightnessDown"
+                 , "XF86Standby"
+                 , "XF86AudioLowerVolume"
+                 , "XF86AudioMute"
+                 , "XF86AudioRaiseVolume"
+                 , "XF86AudioPlay"
+                 , "XF86AudioStop"
+                 , "XF86AudioPrev"
+                 , "XF86AudioNext"
+                 , "XF86HomePage"
+                 , "XF86Mail"
+                 , "XF86Start"
+                 , "XF86Search"
+                 , "XF86AudioRecord"
+                 , "XF86Calculator"
+                 , "XF86Memo"
+                 , "XF86ToDoList"
+                 , "XF86Calendar"
+                 , "XF86PowerDown"
+                 , "XF86ContrastAdjust"
+                 , "XF86RockerUp"
+                 , "XF86RockerDown"
+                 , "XF86RockerEnter"
+                 , "XF86Back"
+                 , "XF86Forward"
+                 , "XF86Stop"
+                 , "XF86Refresh"
+                 , "XF86PowerOff"
+                 , "XF86WakeUp"
+                 , "XF86Eject"
+                 , "XF86ScreenSaver"
+                 , "XF86WWW"
+                 , "XF86Sleep"
+                 , "XF86Favorites"
+                 , "XF86AudioPause"
+                 , "XF86AudioMedia"
+                 , "XF86MyComputer"
+                 , "XF86VendorHome"
+                 , "XF86LightBulb"
+                 , "XF86Shop"
+                 , "XF86History"
+                 , "XF86OpenURL"
+                 , "XF86AddFavorite"
+                 , "XF86HotLinks"
+                 , "XF86BrightnessAdjust"
+                 , "XF86Finance"
+                 , "XF86Community"
+                 , "XF86AudioRewind"
+                 , "XF86BackForward"
+                 , "XF86Launch0"
+                 , "XF86Launch1"
+                 , "XF86Launch2"
+                 , "XF86Launch3"
+                 , "XF86Launch4"
+                 , "XF86Launch5"
+                 , "XF86Launch6"
+                 , "XF86Launch7"
+                 , "XF86Launch8"
+                 , "XF86Launch9"
+                 , "XF86LaunchA"
+                 , "XF86LaunchB"
+                 , "XF86LaunchC"
+                 , "XF86LaunchD"
+                 , "XF86LaunchE"
+                 , "XF86LaunchF"
+                 , "XF86ApplicationLeft"
+                 , "XF86ApplicationRight"
+                 , "XF86Book"
+                 , "XF86CD"
+                 , "XF86Calculater"
+                 , "XF86Clear"
+                 , "XF86Close"
+                 , "XF86Copy"
+                 , "XF86Cut"
+                 , "XF86Display"
+                 , "XF86DOS"
+                 , "XF86Documents"
+                 , "XF86Excel"
+                 , "XF86Explorer"
+                 , "XF86Game"
+                 , "XF86Go"
+                 , "XF86iTouch"
+                 , "XF86LogOff"
+                 , "XF86Market"
+                 , "XF86Meeting"
+                 , "XF86MenuKB"
+                 , "XF86MenuPB"
+                 , "XF86MySites"
+                 , "XF86New"
+                 , "XF86News"
+                 , "XF86OfficeHome"
+                 , "XF86Open"
+                 , "XF86Option"
+                 , "XF86Paste"
+                 , "XF86Phone"
+                 , "XF86Q"
+                 , "XF86Reply"
+                 , "XF86Reload"
+                 , "XF86RotateWindows"
+                 , "XF86RotationPB"
+                 , "XF86RotationKB"
+                 , "XF86Save"
+                 , "XF86ScrollUp"
+                 , "XF86ScrollDown"
+                 , "XF86ScrollClick"
+                 , "XF86Send"
+                 , "XF86Spell"
+                 , "XF86SplitScreen"
+                 , "XF86Support"
+                 , "XF86TaskPane"
+                 , "XF86Terminal"
+                 , "XF86Tools"
+                 , "XF86Travel"
+                 , "XF86UserPB"
+                 , "XF86User1KB"
+                 , "XF86User2KB"
+                 , "XF86Video"
+                 , "XF86WheelButton"
+                 , "XF86Word"
+                 , "XF86Xfer"
+                 , "XF86ZoomIn"
+                 , "XF86ZoomOut"
+                 , "XF86Away"
+                 , "XF86Messenger"
+                 , "XF86WebCam"
+                 , "XF86MailForward"
+                 , "XF86Pictures"
+                 , "XF86Music"
+                 , "XF86_Switch_VT_1"
+                 , "XF86_Switch_VT_2"
+                 , "XF86_Switch_VT_3"
+                 , "XF86_Switch_VT_4"
+                 , "XF86_Switch_VT_5"
+                 , "XF86_Switch_VT_6"
+                 , "XF86_Switch_VT_7"
+                 , "XF86_Switch_VT_8"
+                 , "XF86_Switch_VT_9"
+                 , "XF86_Switch_VT_10"
+                 , "XF86_Switch_VT_11"
+                 , "XF86_Switch_VT_12"
+                 , "XF86_Ungrab"
+                 , "XF86_ClearGrab"
+                 , "XF86_Next_VMode"
+                 , "XF86_Prev_VMode" ]
+
 -- | Given a configuration record and a list of (key sequence
 --   description, action) pairs, check the key sequence descriptions
 --   for validity, and warn the user (via a popup xmessage window) of