import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders
import XMonad.Util.Loggers
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Actions.UpdatePointer
import System.IO

main = do
    xmproc <- spawnPipe "xmobar"
    xmonad defaultConfig {
             modMask = mod4Mask
           , terminal = "urxvt"
           , normalBorderColor = "#444444"
           , focusedBorderColor = "#ff8c00"
           , manageHook = manageDocks <+> manageHook defaultConfig
           , layoutHook = smartBorders $ avoidStruts $ layoutHook defaultConfig
           , logHook = (dynamicLogWithPP $ xmobarPP
                     { ppOutput = hPutStrLn xmproc
                     , ppTitle = const "" -- xmobarColor "green" "" . shorten 50
                     , ppSep = " | "
                     }) >> updatePointer (Relative 0.99 0.99)
           }