From 12d029af0485ae40f13df8c2907689716b6820be Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 8 Nov 2022 13:23:45 +0100
Subject: ...

---
 accounts/gkleen@sif/xmonad/xmonad.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'accounts')

diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index 3dc017a9..756f2926 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -498,7 +498,7 @@ main = do
       let
         host = hostFromName hostname
       setEnv "HOST" hostname
-      let myConfig = withHostUrgency . ewmh . pagerHints $ docks def
+      let myConfig = withHostUrgency . ewmhFullscreen . pagerHints $ docks def
             { manageHook = hManageHook host
             , terminal = "alacritty"
             , layoutHook = smartBorders . avoidStruts $ windowNavigation layout'
@@ -511,7 +511,7 @@ main = do
             , startupHook = setDefaultCursor xC_left_ptr
             , normalBorderColor = darkGray
             , focusedBorderColor = gray
-            , handleEventHook = fullscreenEventHook <+> (serverModeEventHookCmd' $ hCmds host) <+> keyUpEventHook
+            , handleEventHook = serverModeEventHookCmd' (hCmds host) <+> keyUpEventHook
             }
           writeProps str = do
             let encodeCChar = map $ fromIntegral . fromEnum
@@ -578,7 +578,7 @@ main = do
                                , ppSep = "\n"
                                }
           withHostUrgency = case hostname of
-            "sif" -> withUrgencyHookC urgencyHook' $ urgencyConfig { suppressWhen = U.Never, remindWhen = Every 2 }
+            "sif" -> withUrgencyHookC urgencyHook' $ def { suppressWhen = U.Never, remindWhen = Every 2 }
             _ -> id
           urgencyHook' window = do
             let blinkLight = (lightHigh >> threadDelay 0.5e6) `finally` lightLow
-- 
cgit v1.2.3