From 3cd06b22069c009b8c5fea2d5fad5f996667d2e3 Mon Sep 17 00:00:00 2001 From: Azat Bahawi Date: Tue, 16 Aug 2022 01:46:04 +0300 Subject: huge update-o --- src/lib/XMonad/Custom/Event.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'src/lib/XMonad/Custom/Event.hs') diff --git a/src/lib/XMonad/Custom/Event.hs b/src/lib/XMonad/Custom/Event.hs index 9ff2552..4e5a598 100644 --- a/src/lib/XMonad/Custom/Event.hs +++ b/src/lib/XMonad/Custom/Event.hs @@ -1,24 +1,24 @@ -- | -- Module : XMonad.Custom.Event -- Description : Event hooks and stuff --- Copyright : (c) Azat Bahawi 2018-2021 +-- Copyright : (c) Azat Bahawi 2018-2022 -- SPDX-License-Identifier : GPL-3.0-or-later --- Maintainer : azahi@teknik.io +-- Maintainer : azat@bahawi.net -- Stability : experimental -- Portability : non-portable -- module XMonad.Custom.Event - ( handleEventHook + ( ngHandleEventHook ) where -import Data.Monoid -import XMonad hiding ( handleEventHook ) -import XMonad.Custom.Scratchpads -import XMonad.Hooks.EwmhDesktops -import XMonad.Hooks.ManageDocks +import Data.Monoid ( All ) +import XMonad ( Event + , X + ) +import XMonad.Custom.Scratchpads ( scratchpads ) import XMonad.Util.Loggers.NamedScratchpad + ( nspTrackHook ) -handleEventHook :: Event -> X All -handleEventHook = - mconcat [nspTrackHook scratchpads, docksEventHook, fullscreenEventHook] +ngHandleEventHook :: Event -> X All +ngHandleEventHook = mconcat [nspTrackHook scratchpads] -- cgit 1.4.1