Huge update

1 files changed, 24 insertions, 0 deletions

diff --git a/src/lib/XMonad/Custom/Event.hs b/src/lib/XMonad/Custom/Event.hs
new file mode 100644
index 0000000..9ff2552
--- /dev/null
+++ b/src/lib/XMonad/Custom/Event.hs
@@ -0,0 +1,24 @@
+-- |
+-- Module                  : XMonad.Custom.Event
+-- Description             : Event hooks and stuff
+-- Copyright               : (c) Azat Bahawi 2018-2021
+-- SPDX-License-Identifier : GPL-3.0-or-later
+-- Maintainer              : azahi@teknik.io
+-- Stability               : experimental
+-- Portability             : non-portable
+--
+
+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]