add custom event hook with fix for steam flickering

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
diff --git a/xmonad.hs b/xmonad.hs
index 270f142..9e5e7c4 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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