Add clementine media player support

xmonad.hs

@@ -25,8 +25,8 @@ import qualified Data.List as L
 baseConfig = desktopConfig
     { modMask = mod5Mask -- AltGr
     , terminal = "mate-terminal.wrapper"
-    , workspaces = ["1:web", "2:com", "3:dev"] ++ map show [4..8] ++ ["9:div"]
-    , layoutHook = smartBorders $ fullscreenFull $ avoidStruts $ boringWindows $ minimize $ maximize $ onWorkspaces ["2:com", "9:div"] simpleTabbed $ (layoutHook desktopConfig ||| simpleTabbed )
+    , workspaces = ["1:web", "2:com", "3:dev"] ++ map show [4..7] ++ ["8:media", "9:div"]
+    , layoutHook = smartBorders $ fullscreenFull $ avoidStruts $ boringWindows $ minimize $ maximize $ onWorkspace "8:media" Full $ onWorkspaces ["2:com", "9:div"] simpleTabbed $ (layoutHook desktopConfig ||| simpleTabbed )
 	, handleEventHook = handleEventHook desktopConfig <+> fullscreenEventHook
     }
 	`removeKeys`
@@ -50,13 +50,14 @@ workspaceManageHook = composeAll [
     ,className =? "jetbrains-pycharm" --> doShift "3:dev"
     ,className =? "KeePass2" --> doShift "9:div"
     ,className =? "Xmessage" --> doFloat
+    ,className =? "Clementine" --> doShift "8:media"
     ]
 
 
 main = do
     xmobar_proc <- spawnPipe "xmobar"
     xmonad $ baseConfig
-        { manageHook = (scratchpadManageHook $ W.RationalRect 0.0 0.0 1.0 0.5) <+> workspaceManageHook <+> fullscreenManageHook <+> manageDocks <+> manageHook baseConfig
+        { manageHook = (scratchpadManageHook $ W.RationalRect 0.0 0.0 1.0 0.5) <+> workspaceManageHook <+> fullscreenManageHook <+> manageDocks
 		, logHook =  dynamicLogWithPP xmobarPP
 						{ ppOutput = hPutStrLn xmobar_proc
 						, ppTitle = xmobarColor "green" "" . shorten 50
@@ -99,6 +100,11 @@ main = do
 		, ((0, 0x1008FF13), spawn "~/.xmonad/xmonad-pulsevolume/pulse-volume.sh increase")
 		-- volumedown button
 		, ((0, 0x1008FF11), spawn "~/.xmonad/xmonad-pulsevolume/pulse-volume.sh decrease")
+        -- Media buttons
+        , ((0, 0x1008ff14), spawn "clementine --play-pause")
+        , ((0, 0x1008ff15), spawn "clementine --stop")
+        , ((0, 0x1008ff16), spawn "clementine --restart-or-previous")
+        , ((0, 0x1008ff17), spawn "clementine --next")
         ]
 		`additionalKeys`
 		--