diff options
| author | azahi <azahi@teknik.io> | 2018-06-12 22:59:58 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-06-12 22:59:58 +0300 |
| commit | b975c0a90dce97c8d96ab464d69575a9d8c150b3 (patch) | |
| tree | 714936c56a45e1142347d763e01984f5db881fbf /src/XMonad/Custom/Event.hs | |
| parent | Add Stack integration (diff) | |
Add X.Custom and split existing code in modules
Diffstat (limited to 'src/XMonad/Custom/Event.hs')
| -rw-r--r-- | src/XMonad/Custom/Event.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/XMonad/Custom/Event.hs b/src/XMonad/Custom/Event.hs new file mode 100644 index 0000000..032efd1 --- /dev/null +++ b/src/XMonad/Custom/Event.hs @@ -0,0 +1,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 + ] |