-----------------------------------------------------------------------------
-- |
-- Module      :  XMonad.Custom.Event
-- Copyright   :  (c) azahi 2018
-- License     :  BSD3-style (see LICENSE)
--
-- Maintainer  :  azahi@teknik.io
-- Stability   :  unstable
-- Portability :  unportable
--
-----------------------------------------------------------------------------

module XMonad.Custom.Event
    ( handleEventHook
    ) where

import           Data.Monoid
import           XMonad                              hiding (handleEventHook)
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
                          ]