From 729e030dd25da2e36fa5a1312b8ecb3415dc1675 Mon Sep 17 00:00:00 2001 From: Azat Bahawi Date: Tue, 23 Nov 2021 03:19:06 +0300 Subject: Huge update --- src/lib/XMonad/Custom/Event.hs | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 src/lib/XMonad/Custom/Event.hs (limited to 'src/lib/XMonad/Custom/Event.hs') 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] -- cgit 1.4.1