add xf86 keybindings for mocp

1 files changed, 8 insertions, 2 deletions

diff --git a/xmonad.hs b/xmonad.hs
index e290fe3..37ef99c 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -76,6 +76,12 @@ myKeys = [ ("M-<Return>", spawn myTerminal)
 
          , ("M-S-q",      io (exitWith ExitSuccess))
          , ("M-S-r",      spawn "xmonad --recompile && xmonad --restart")
+
+         , ("<XF86AudioPlay>",        spawn $ myMocp ++ " -G")
+         , ("<XF86AudioRaiseVolume>", spawn $ myMocp ++ " -v +5")
+         , ("<XF86AudioLowerVolume>", spawn $ myMocp ++ " -v -5")
+         , ("<XF86AudioPrev>",        spawn $ myMocp ++ " --previous")
+         , ("<XF86AudioNext>",        spawn $ myMocp ++ " --next")
          ]
          ++
          [("M-" ++ m ++ show k, windows $ f i)
@@ -102,7 +108,7 @@ myXmobarPP = def
            , ppCurrent         = xmobarColor (col_fg_alt def) "" . sitelen
            , ppHidden          = xmobarColor (col_fg     def) "" . sitelen
            , ppHiddenNoWindows = xmobarColor (col_bg_alt def) "" . sitelen
-	   , ppLayout          = sitelen
+           , ppLayout          = sitelen
            } where
                sitelen = xmobarFont 3
 
@@ -139,7 +145,7 @@ myLayout = windowNavigation
                      $ subLayout [] (Simplest)
                      $ spacingWithEdge space $ ResizableThreeColMid nmaster delta ratio []
             full     = renamed [Replace "\xe663"] -- suli
-            $ noBorders Full
+                     $ noBorders Full
             nmaster  = 1
             ratio    = 1/2
             delta    = 3/100