From 0a935aff6378d88edd7ff0240a825cd40d940826 Mon Sep 17 00:00:00 2001 From: Roman Cheplyaka Date: Mon, 17 Nov 2008 13:01:15 +0000 Subject: [PATCH] FadeInactive: fade all inactive windows (including focused windows on visible screens) --- XMonad/Hooks/FadeInactive.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/XMonad/Hooks/FadeInactive.hs b/XMonad/Hooks/FadeInactive.hs index 0ac66ca3..53f3809d 100644 --- a/XMonad/Hooks/FadeInactive.hs +++ b/XMonad/Hooks/FadeInactive.hs @@ -68,8 +68,9 @@ fadeIn = flip setOpacity 0xffffffff -- lowers the opacity of inactive windows to the specified amount fadeInactiveLogHook :: Integer -> X () fadeInactiveLogHook amt = withWindowSet $ \s -> - forM_ (concatMap visibleWins $ W.current s : W.visible s) (fadeOut amt) >> + forM_ (visibleWins s) (fadeOut amt) >> withFocused fadeIn where - visibleWins = maybe [] unfocused . W.stack . W.workspace + visibleWins s = (maybe [] unfocused . W.stack . W.workspace) (W.current s) ++ + concatMap (W.integrate' . W.stack . W.workspace) (W.visible s) unfocused (W.Stack _ l r) = l ++ r