From 487cf79263a2f5181f8f62183a739301af500f48 Mon Sep 17 00:00:00 2001
From: Pierre Dal-Pra <dalpra.pierre@proton.me>
Date: Sun, 27 Oct 2024 14:19:01 +0100
Subject: [PATCH] Bump xmonad-contrib, fix Steam

---
 home/modules/wm/xmonad-config/lib/WindowRules.hs  | 7 +++++++
 home/modules/wm/xmonad-config/lib/Workspaces.hs   | 2 +-
 home/modules/wm/xmonad-config/xmonad-config.cabal | 2 +-
 home/modules/wm/xmonad.nix                        | 3 ++-
 4 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/home/modules/wm/xmonad-config/lib/WindowRules.hs b/home/modules/wm/xmonad-config/lib/WindowRules.hs
index 6b1a68a..36e0344 100644
--- a/home/modules/wm/xmonad-config/lib/WindowRules.hs
+++ b/home/modules/wm/xmonad-config/lib/WindowRules.hs
@@ -6,13 +6,16 @@ import Data.Ratio ((%))
 import Workspaces hiding (setup)
 import XMonad
 import XMonad.Hooks.ManageHelpers
+import XMonad.Prelude
 import XMonad.StackSet
+import XMonad.Util.Hacks
 
 
 setup :: XConfig l -> XConfig l
 setup c =
   c
     { manageHook = windowRules <+> c.manageHook
+    , handleEventHook = hacks <> c.handleEventHook
     }
 
 
@@ -28,3 +31,7 @@ windowRules =
     ]
   where
     smallCenteredFloat = doRectFloat (RationalRect (1 % 3) (1 % 3) (1 % 3) (1 % 3))
+
+
+hacks :: Event -> X All
+hacks = windowedFullscreenFixEventHook <> fixSteamFlicker
diff --git a/home/modules/wm/xmonad-config/lib/Workspaces.hs b/home/modules/wm/xmonad-config/lib/Workspaces.hs
index da5150d..ac8134e 100644
--- a/home/modules/wm/xmonad-config/lib/Workspaces.hs
+++ b/home/modules/wm/xmonad-config/lib/Workspaces.hs
@@ -148,7 +148,7 @@ workspacesLayout c =
     toggleFullScreen = mkToggle $ single NBFULL
     dropSpacingLabel = renamed [CutWordsLeft 1]
     layout = layoutHook def
-    codeLayout = Tall 1 (1 / 2) (2 / 3) ||| Full
+    codeLayout = Tall 1 (5 / 100) (2 / 3) ||| Full
     webLayout = forWorkspace web (tabs ||| Full)
     mailLayout = forWorkspace mail Full
     chatLayout = forWorkspace chat (tabs ||| Full)
diff --git a/home/modules/wm/xmonad-config/xmonad-config.cabal b/home/modules/wm/xmonad-config/xmonad-config.cabal
index 1f9da43..f7a7251 100644
--- a/home/modules/wm/xmonad-config/xmonad-config.cabal
+++ b/home/modules/wm/xmonad-config/xmonad-config.cabal
@@ -19,7 +19,7 @@ executable config
     WindowRules
     Workspaces
 
-  ghc-options:      -Wall -Whi-shadowing -Wname-shadowing
+  ghc-options:      -Wall -Wname-shadowing
   build-depends:
     , base            ^>=4.18.0
     , dbus            ^>=1.2.0
diff --git a/home/modules/wm/xmonad.nix b/home/modules/wm/xmonad.nix
index e392679..094e142 100644
--- a/home/modules/wm/xmonad.nix
+++ b/home/modules/wm/xmonad.nix
@@ -57,11 +57,12 @@ in
 
     windowManager.xmonad = {
       inherit libFiles;
+      inherit (pkgs.unstable) haskellPackages;
 
       enable = true;
       config = ./xmonad-config/config.hs;
       extraPackages = hp: with hp; [
-        xmonad-contrib
+        xmonad-contrib_0_18_1
         dbus
       ];
     };