summaryrefslogtreecommitdiff
path: root/accounts
diff options
context:
space:
mode:
Diffstat (limited to 'accounts')
-rw-r--r--accounts/gkleen@sif/xmonad/xmonad.hs6
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
498 let 498 let
499 host = hostFromName hostname 499 host = hostFromName hostname
500 setEnv "HOST" hostname 500 setEnv "HOST" hostname
501 let myConfig = withHostUrgency . ewmh . pagerHints $ docks def 501 let myConfig = withHostUrgency . ewmhFullscreen . pagerHints $ docks def
502 { manageHook = hManageHook host 502 { manageHook = hManageHook host
503 , terminal = "alacritty" 503 , terminal = "alacritty"
504 , layoutHook = smartBorders . avoidStruts $ windowNavigation layout' 504 , layoutHook = smartBorders . avoidStruts $ windowNavigation layout'
@@ -511,7 +511,7 @@ main = do
511 , startupHook = setDefaultCursor xC_left_ptr 511 , startupHook = setDefaultCursor xC_left_ptr
512 , normalBorderColor = darkGray 512 , normalBorderColor = darkGray
513 , focusedBorderColor = gray 513 , focusedBorderColor = gray
514 , handleEventHook = fullscreenEventHook <+> (serverModeEventHookCmd' $ hCmds host) <+> keyUpEventHook 514 , handleEventHook = serverModeEventHookCmd' (hCmds host) <+> keyUpEventHook
515 } 515 }
516 writeProps str = do 516 writeProps str = do
517 let encodeCChar = map $ fromIntegral . fromEnum 517 let encodeCChar = map $ fromIntegral . fromEnum
@@ -578,7 +578,7 @@ main = do
578 , ppSep = "\n" 578 , ppSep = "\n"
579 } 579 }
580 withHostUrgency = case hostname of 580 withHostUrgency = case hostname of
581 "sif" -> withUrgencyHookC urgencyHook' $ urgencyConfig { suppressWhen = U.Never, remindWhen = Every 2 } 581 "sif" -> withUrgencyHookC urgencyHook' $ def { suppressWhen = U.Never, remindWhen = Every 2 }
582 _ -> id 582 _ -> id
583 urgencyHook' window = do 583 urgencyHook' window = do
584 let blinkLight = (lightHigh >> threadDelay 0.5e6) `finally` lightLow 584 let blinkLight = (lightHigh >> threadDelay 0.5e6) `finally` lightLow