...

1 files changed, 3 insertions, 3 deletions

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