From b975c0a90dce97c8d96ab464d69575a9d8c150b3 Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Tue, 12 Jun 2018 22:59:58 +0300
Subject: Add X.Custom and split existing code in modules

---
 src/XMonad/Custom/Event.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/XMonad/Custom/Event.hs

(limited to 'src/XMonad/Custom/Event.hs')

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
+                           ]
-- 
cgit 1.4.1