ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

xmonad: show mplayer in full opacity

Browse source
This commit is contained in:
Tom Willemsen 2013-02-19 00:53:13 +01:00
parent 9262554c26
commit 2e1315b829
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
xmonad/xmonad.hs
View file

@ -19,9 +19,11 @@ fadeRules = do
fullscreen <- isFullscreen fullscreen <- isFullscreen
conkeror <- className =? "Conkeror" conkeror <- className =? "Conkeror"
chromium <- className =? "Chromium" chromium <- className =? "Chromium"
mplayer <- className =? "MPlayer"
return $ case () of _ | fullscreen -> 1 return $ case () of _ | fullscreen -> 1
| conkeror -> 0.95 | conkeror -> 0.95
| chromium -> 1 | chromium -> 1
| mplayer -> 1
| otherwise -> 0.9 | otherwise -> 0.9
main = xmonad $ defaultConfig main = xmonad $ defaultConfig