import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.DynamicLog ( PP(..), dynamicLogWithPP, dzenColor, wrap, defaultPP )
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Util.Run

import XMonad.Layout.SubLayouts
import XMonad.Layout.WindowNavigation
import XMonad.Layout.BoringWindows

import qualified XMonad.StackSet as W
import qualified Data.Map as M

statusBarCmd = "dzen2 -w 960 -ta l -fn -*-terminus-medium-r-normal-*-16-*-*-*-*-*-iso8859-*"
conkyCmd = "conky -c ~/.conkystatus | dzen2 -w 960 -x 960 -ta r -fn -*-terminus-medium-r-normal-*-16-*-*-*-*-*-iso8859-*"

main = do din <- spawnPipe statusBarCmd
          conky <- spawnPipe conkyCmd
          xmonad $ defaultConfig
              {     normalBorderColor  = "#dddddd"
                  , focusedBorderColor = "#0033ff"
                  , keys = \c -> mykeys c `M.union` keys defaultConfig c
                  , manageHook = manageHook defaultConfig <+> myManageHook <+> manageDocks
                  , logHook = dynamicLogWithPP $ myPP din
                  , layoutHook = windowNavigation $ subTabbed $ boringWindows $ avoidStruts $ layoutHook defaultConfig
              }
myManageHook = composeAll
    [
        resource =? "stalonetray" --> doIgnore
    ]

mykeys (XConfig {modMask = modm}) = M.fromList $
    [     ((modm, xK_F2), spawn "uxterm")
        , ((modm, xK_F3), shellPrompt myPromptConfig)
        , ((modm .|. controlMask, xK_h), sendMessage $ pullGroup L)
        , ((modm .|. controlMask, xK_l), sendMessage $ pullGroup R)
        , ((modm .|. controlMask, xK_k), sendMessage $ pullGroup U)
        , ((modm .|. controlMask, xK_j), sendMessage $ pullGroup D)
        , ((modm .|. controlMask, xK_m), withFocused (sendMessage . MergeAll))
        , ((modm .|. controlMask, xK_u), withFocused (sendMessage . UnMerge))
        , ((modm .|. controlMask, xK_period), onGroup W.focusUp')
        , ((modm .|. controlMask, xK_comma), onGroup W.focusDown')
    ]

myPromptConfig = defaultXPConfig
    {     position = Bottom
        , promptBorderWidth = 0
    }

myPP h = defaultPP
    {
            ppOutput = hPutStrLn h
    }