diff options
| -rw-r--r-- | lib/EventHook.hs | 10 | ||||
| -rw-r--r-- | xmonad.hs | 2 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lib/EventHook.hs b/lib/EventHook.hs new file mode 100644 index 0000000..d95f751 --- /dev/null +++ b/lib/EventHook.hs @@ -0,0 +1,10 @@ +module EventHook where + +import XMonad +import XMonad.Hooks.FloatConfigureReq (fixSteamFlicker) +import XMonad.Hooks.ManageHelpers + +import Data.Monoid + +myEventHook :: Event -> X All +myEventHook = mempty <> fixSteamFlicker @@ -4,6 +4,7 @@ import XMonad.Hooks.ManageDocks import XMonad.Layout.Fullscreen import Defaults +import EventHook import KeyBindings import Layout import LogHook @@ -19,6 +20,7 @@ main = xmonad . withStatusBars . fullscreenSupport . docks . ewmh $ defaults , focusFollowsMouse = myFocusFollowsMouse , clickJustFocuses = myClickJustFocuses , logHook = myLogHook + , handleEventHook = myEventHook , terminal = myTerminal , layoutHook = myLayoutHook , borderWidth = myBorderWidth |