From 533fda4c32f8488fd3df49bd75ceda8e698dcaad Mon Sep 17 00:00:00 2001 From: Khudyakov Alexey Date: Sat, 7 Feb 2009 18:33:30 +0100 Subject: Multimedia keys support for EZConfig Ignore-this: 21183dd7c192682daa18e3768828f88d darcs-hash:20090207173330-7ba7e-3339e560daae7088e4ebe83bd5879cb405814747.gz --- XMonad/Util/EZConfig.hs | 294 ++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 283 insertions(+), 11 deletions(-) (limited to 'XMonad/Util/EZConfig.hs') 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 = -- > -- > -- > --- > --- > --- > --- > --- > --- > --- > --- > --- > --- > +-- > - +-- +-- Long list of multimedia keys. Please note that not all keys may be +-- present in your particular setup althrough most likely they will do. +-- +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > -, - +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > +-- > - +-- > +-- > +-- > +-- > 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. @\"\"@) 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 -- cgit v1.2.3