diff options
| author | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
| commit | d7176233da673ea5d92eadcbf52323b5d8419cfd (patch) | |
| tree | f603bee246db9a0ca0d5c89933b34064f76495cf /src/XMonad/Custom/Event.hs | |
| parent | Clean up Actions (diff) | |
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
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Custom/Event.hs | 14 |
1 files changed, 7 insertions, 7 deletions
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 + ] |