twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

FadeInactive: fade all inactive windows (including focused windows on visible screens)

Browse Source
This commit is contained in:
Roman Cheplyaka
2008-11-17 13:01:15 +00:00
parent 642cbdcad6
commit 0a935aff63
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Hooks/FadeInactive.hs
View File

@@ -68,8 +68,9 @@ fadeIn = flip setOpacity 0xffffffff
-- lowers the opacity of inactive windows to the specified amount -- lowers the opacity of inactive windows to the specified amount
fadeInactiveLogHook :: Integer -> X () fadeInactiveLogHook :: Integer -> X ()
fadeInactiveLogHook amt = withWindowSet $ \s -> fadeInactiveLogHook amt = withWindowSet $ \s ->
forM_ (concatMap visibleWins $ W.current s : W.visible s) (fadeOut amt) >> forM_ (visibleWins s) (fadeOut amt) >>
withFocused fadeIn withFocused fadeIn
where 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 unfocused (W.Stack _ l r) = l ++ r