diff options
Diffstat (limited to 'src/lib/XMonad/Custom/Event.hs')
| -rw-r--r-- | src/lib/XMonad/Custom/Event.hs | 22 |
1 files changed, 11 insertions, 11 deletions
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] |