xmonad: show mplayer in full opacity

xmonad/xmonad.hs

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