From 2e1315b829f0285cce05f305fc97993ac2890cf1 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Tue, 19 Feb 2013 00:53:13 +0100
Subject: [PATCH] xmonad: show mplayer in full opacity

---
 xmonad/xmonad.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 9a80be4..56a404a 100644
--- a/xmonad/xmonad.hs
+++ b/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