From 833e19f0e48d9e3f5bd5004701d06d5d6d550be4 Mon Sep 17 00:00:00 2001
From: tdback <tyler@tdback.net>
Date: Mon, 3 Feb 2025 21:22:04 -0500
Subject: add custom event hook with fix for steam flickering

---
 lib/EventHook.hs | 10 ++++++++++
 xmonad.hs        |  2 ++
 2 files changed, 12 insertions(+)
 create mode 100644 lib/EventHook.hs

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
-- 
cgit v1.2.3