import XMonad
import XMonad.ManageHook
import XMonad.Actions.UpdatePointer
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Layout.LayoutHints
import XMonad.Layout.StackTile

main = xmonad $ ewmh defaultConfig
        { modMask = mod4Mask
        , terminal = "Terminal"
        , manageHook = myManageHook <+> manageDocks <+> manageHook defaultConfig
        , layoutHook = avoidStruts (myLayoutHook ||| layoutHook defaultConfig)
        , logHook = updatePointer (Relative 0.5 0.5)
        , keys = newKeys
        }

myLayoutHook = StackTile 1 (3/100) (1/2)
myManageHook :: ManageHook
myManageHook = composeAll
        [ className =? "Xfrun4" --> doFloat
        , className =? "VirtualBox" --> doFloat
        ]

newKeys x = M.union (keys defaultConfig x) (M.fromList (myKeys x))
myKeys conf@(XConfig {XMonad.modMask = modMask}) =
        [ ((modMask, xK_b), sendMessage ToggleStruts)
         , ((modMask, xK_p), spawn "xfrun4")
         , ((modMask .|. shiftMask, xK_q), spawn "xfce4-session-logout")
        ]
~