From d7176233da673ea5d92eadcbf52323b5d8419cfd Mon Sep 17 00:00:00 2001 From: azahi Date: Mon, 8 Oct 2018 21:18:13 +0300 Subject: Rework Custom Change the names of high-order functoins Remove named keybindings Add check executable for keybindings Expand xmonad-ng library Bump to 0.15.1 --- src/XMonad/Custom/Event.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/XMonad/Custom/Event.hs') diff --git a/src/XMonad/Custom/Event.hs b/src/XMonad/Custom/Event.hs index 4e0439e..c89714c 100644 --- a/src/XMonad/Custom/Event.hs +++ b/src/XMonad/Custom/Event.hs @@ -11,18 +11,18 @@ ----------------------------------------------------------------------------- module XMonad.Custom.Event - ( handleEventHook' + ( handleEventHook ) where import Data.Monoid -import XMonad +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 - ] +handleEventHook :: Event -> X All +handleEventHook = mconcat [ nspTrackHook scratchpads + , docksEventHook + , fullscreenEventHook + ] -- cgit 1.4.1