src/XMonad/Custom/Event.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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
                           ]