blob: d25377bb811619dffd8e42a977c5ed9df33098a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module XMonad.Local.EventHook (eventHook) where
import qualified Data.Map as M
import Data.Monoid
import XMonad
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.FadeWindows
import XMonad.Hooks.ManageDocks
import qualified XMonad.StackSet as W
eventHook :: Event -> X All
eventHook = mconcat
[ ewmhDesktopsEventHook
, docksEventHook
, fadeWindowsEventHook
, fullscreenEventHook
]
|