I use a customized test condition to fade windows, maybe this will help you.<br>It adds the ability to determine both statically and dynamically which windows do you want to fade. <br>Daniel Schoepe and Adam Vogt helped me setting this config at #xmonad.<br>
Now with extstate this can be integrated into FadeInactive.<br><br><span style="font-family: courier new,monospace;"></span><span style="font-family: courier new,monospace;">import Data.IORef<br>import Control.Monad (liftM, join)<br>
import XMonad<br>import XMonad.Hooks.FadeInactive<br>import XMonad.Util.EZConfig<br>import qualified Data.Set as S<br><br>testCondition :: IORef (S.Set Window) -> Query Bool</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">testCondition floats =</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> liftM not doNotFadeOutWindows <&&> isUnfocused</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> <&&> (join . asks $ \w -> liftX . io $ S.notMember w `fmap` readIORef floats)</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">toggleFadeOut :: Window -> S.Set Window -> S.Set Window</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">toggleFadeOut w s | w `S.member` s = S.delete w s</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> | otherwise = S.insert w s</span><br style="font-family: courier new,monospace;"><br><span style="font-family: courier new,monospace;">myLogHook toggleFadeSet = fadeOutLogHook $ fadeIf (testCondition toggleFadeSet) 0.7</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">doNotFadeOutWindows = className =? "xine" <||> className =? "MPlayer"</span><br><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">main = do</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> toggleFadeSet <- newIORef S.empty</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> xmonad $ defaultConfig</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> { logHook = myLogHook toggleFadeSet</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> } `additionalKeysP`</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> [ ("M-S-f", withFocused $ io . modifyIORef toggleFadeSet . toggleFadeOut)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> ]</span><br>
<br>Regards,<br clear="all">Henrique G. Abreu<br>
<br><br><div class="gmail_quote">On Fri, Nov 20, 2009 at 12:32, Justin Bogner <span dir="ltr"><<a href="mailto:mail@justinbogner.com" target="_blank">mail@justinbogner.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
This seems generally useful, so I'm sending your idea and patch to the<br>
xmonad mailing list. It's best to send ideas about xmonad/xmonad-contrib<br>
improvements there, so they get a wider audience.<br>
<br>
On Thu, Nov 19, 2009 at 1:16 AM, Jasper van der Jeugt<br>
<<a href="mailto:jaspervdj@gmail.com" target="_blank">jaspervdj@gmail.com</a>> wrote:<br>
> Hello,<br>
><br>
> I recently installed the XMonad.Hooks.FadeInactive into my xmonad.hs. I<br>
> think it is very usable, altough there is one drawback: floating windows.<br>
><br>
> I (and most people, I think) use floating windows mostly for many-window<br>
> applications like, for example, the GIMP. In the GIMP, you wouldn't want a<br>
> window to become transparent, since you want a clear view of your image,<br>
> even when you're clicking around in the toolbox window.<br>
><br>
> I therefore propose to add a Query that returns true if the window is<br>
> unfocused, and in the tiling layer. I attached the code as a diff. I'd like<br>
> to know what you think.<br>
><br>
> Kind regards,<br>
> Jasper Van der Jeugt<br>
<br>_______________________________________________<br>
xmonad mailing list<br>
<a href="mailto:xmonad@haskell.org" target="_blank">xmonad@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/xmonad" target="_blank">http://www.haskell.org/mailman/listinfo/xmonad</a><br>
<br></blockquote></div><br>