xmonad.hs

import XMonad
import XMonad.Actions.Volume
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Dzen
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys, additionalKeysP)
import System.IO
        
system = "~/.system/"
music = "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify \
        \/org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player."

main = do
    xmproc <- spawnPipe "/usr/bin/xmobar ~/.xmobarrc"
    xmonad $ defaultConfig
        { manageHook = manageDocks <+> manageHook defaultConfig
        , layoutHook = avoidStruts  $  layoutHook defaultConfig
        , logHook = dynamicLogWithPP xmobarPP
            { 
                ppOutput = hPutStrLn xmproc, ppTitle = xmobarColor "yellow" "" . shorten 50
            }
        } 
        `additionalKeys`
        [     ((0, 0x1008FF12), spawn (system ++ "mute-volume.sh"))
            , ((0 , 0x1008FF11), lowerVolume 4 >> spawn (system ++ "notify-volume.py"))
            , ((0 , 0x1008FF13), raiseVolume 4 >> spawn (system ++ "notify-volume.py"))
            , ((0 , 0x1008FF16), spawn (music ++ "Previous"))
            , ((0 , 0x1008FF17), spawn (music ++ "Next"))
        ]
        `additionalKeysP`
        [     
            ("<XF86AudioPlay>", spawn (music ++ "PlayPause"))
        ]