diff options
| author | Roman Cheplyaka <roma@ro-che.info> | 2008-11-17 14:01:15 +0100 |
|---|---|---|
| committer | Roman Cheplyaka <roma@ro-che.info> | 2008-11-17 14:01:15 +0100 |
| commit | 92872bf47937100b9e0352c8d31bdbf333565206 (patch) | |
| tree | 5fd07d5f2d3c935b446012f54f82a4a0f660968f /XMonad/Hooks/FadeInactive.hs | |
| parent | 8f07d5ca4d7b83be6c8abf7c7610a49553a20a13 (diff) | |
| download | XMonadContrib-92872bf47937100b9e0352c8d31bdbf333565206.tar.gz XMonadContrib-92872bf47937100b9e0352c8d31bdbf333565206.tar.xz XMonadContrib-92872bf47937100b9e0352c8d31bdbf333565206.zip | |
FadeInactive: fade all inactive windows (including focused windows on visible screens)
darcs-hash:20081117130115-3ebed-6bb05f957502523824c1c7065542e9e15aa833b0.gz
Diffstat (limited to 'XMonad/Hooks/FadeInactive.hs')
| -rw-r--r-- | XMonad/Hooks/FadeInactive.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |