M xmonad.hs → xmonad.hs

@@ -76,6 +76,12 @@ , ("M-<Tab>",    toggleWindowSpacingEnabled >> toggleScreenSpacingEnabled)
 
          , ("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 @@ { ppSep             = xmobarColor (col_bg_alt 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 @@ $ addTabs shrinkText myTabTheme
                      $ 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