import XMonad
import Control.Monad.Fix

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

import XMonad.Actions.CycleWS
import XMonad.Actions.WindowBringer

import XMonad.Layout.DecorationMadness
import XMonad.Layout.Named
import XMonad.Layout.Reflect
import XMonad.Layout.ResizableTile
import XMonad.Layout.WindowNavigation

import XMonad.Hooks.DynamicLog

import XMonad.Prompt
import XMonad.Prompt.Theme

import XMonad.Util.EZConfig
import XMonad.Util.Scratchpad
import XMonad.Util.Themes

import System.Exit

main = dzen $ \conf -> xmonad $ myConfig

myConfig = defaultConfig
    { terminal = "gnome-terminal"
    , borderWidth = 2
    , normalBorderColor = "#333333"
    , focusedBorderColor = "#4c7899"
    , modMask = mod3Mask
--    , defaultGaps = myGaps
    , layoutHook = myLayout
--   , manageHook = manageHook defaultConfig <+> myManageHook
--   , logHook = dzenPP
    }
    `additionalKeysP` myKeys

myGaps = [(16,16,0,0)]

myKeys = myKeymap myConfig

myKeymap conf =
    [ ("M-p",        spawn "exe=`dmenu_path | dmenu -b` && eval \"exec $exe\"")
    , ("M-e",        spawn "emacs")
    , ("M-f",        spawn "firefox-3.0")
    , ("M-<Return>", spawn "gnome-terminal")

    , ("M-S-m", windows W.swapMaster)

    , ("M-a", sendMessage MirrorShrink)
    , ("M-z", sendMessage MirrorExpand)

    , ("M-s",   spawn $ "gnome-terminal --title scratchpad")
    , ("M-S-k", kill)

    , ("M-S-<R>",  moveTo Next NonEmptyWS)
    , ("M-S-<L>",  moveTo Prev NonEmptyWS)

    , ("M-S-t", themePrompt defaultXPConfig)

    , ("M-S-g", gotoMenu)
    , ("M-S-b", bringMenu)
    ]


myLayout = tallDwmStyle shrinkText (theme robertTheme) ||| tiled ||| Mirror tiled ||| Full
    where
        tiled = windowNavigation (ResizableTall nmaster delta ratio [])
        nmaster = 1
        ratio = 1/2
        delta = 3/100