From 92872bf47937100b9e0352c8d31bdbf333565206 Mon Sep 17 00:00:00 2001 From: Roman Cheplyaka Date: Mon, 17 Nov 2008 14:01:15 +0100 Subject: FadeInactive: fade all inactive windows (including focused windows on visible screens) darcs-hash:20081117130115-3ebed-6bb05f957502523824c1c7065542e9e15aa833b0.gz --- XMonad/Hooks/FadeInactive.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'XMonad/Hooks/FadeInactive.hs') diff --git a/XMonad/Hooks/FadeInactive.hs b/XMonad/Hooks/FadeInactive.hs index 0ac66ca..53f3809 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 -- cgit v1.2.3