module XMonad.Custom.Event
    ( handleEventHook'
    ) where

import           Data.Monoid
import           XMonad
import           XMonad.Custom.Scratchpads
import           XMonad.Hooks.EwmhDesktops
import           XMonad.Hooks.ManageDocks
import           XMonad.Util.Loggers.NamedScratchpad

handleEventHook' :: Event -> X All
handleEventHook' = mconcat [ nspTrackHook scratchpads
                           , docksEventHook
                           , fullscreenEventHook
                           ]