import XMonad
import XMonad.Config.Desktop
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO

screenLockProg = "sxlock"
myModMask = mod4Mask

main = do
  xmobarProc <- spawnPipe "xmobar"
  xmonad $ desktopConfig
    { manageHook = manageDocks <+> manageHook desktopConfig
    , layoutHook = avoidStruts $ layoutHook desktopConfig
    , logHook = dynamicLogWithPP xmobarPP { ppOutput = hPutStrLn xmobarProc}
    , modMask = myModMask
    , terminal = "termite"
    , borderWidth = 2
    , focusedBorderColor = "#5c5cee"
    } `additionalKeys`
    [ ((myModMask .|. shiftMask, xK_l), spawn screenLockProg)
    ]