diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-08-28 23:45:37 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-08-28 23:45:37 +0200 |
| commit | 9d4015a2b643cb800b7b879557b2df69359d360a (patch) | |
| tree | daf8227019704fd66aa0948eb94c3abe0896617d | |
| parent | 56c54995ea4ae34d204c5315bdf04b16761f7af1 (diff) | |
| download | XMonadContrib-9d4015a2b643cb800b7b879557b2df69359d360a.tar.gz XMonadContrib-9d4015a2b643cb800b7b879557b2df69359d360a.tar.xz XMonadContrib-9d4015a2b643cb800b7b879557b2df69359d360a.zip | |
Return True in X.H.FadeInactive.isUnfocused if current workspace is empty. (dschoepe)
Ignore-this: 56a3dac874f6430f10ad23870a4be38a
darcs-hash:20090828214537-1499c-746e07cd364f9c4bdf12bb7f633b761bc78953fe.gz
| -rw-r--r-- | XMonad/Hooks/FadeInactive.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/FadeInactive.hs b/XMonad/Hooks/FadeInactive.hs index 343b3ee..a7250cf 100644 --- a/XMonad/Hooks/FadeInactive.hs +++ b/XMonad/Hooks/FadeInactive.hs @@ -84,7 +84,7 @@ fadeInactiveLogHook = fadeOutLogHook . fadeIf isUnfocused -- | returns True if the window doesn't have the focus. isUnfocused :: Query Bool -isUnfocused = ask >>= \w -> liftX . gets $ maybe False (w /=) . W.peek . windowset +isUnfocused = ask >>= \w -> liftX . gets $ maybe True (w /=) . W.peek . windowset -- | fades out every window by the amount returned by the query. fadeOutLogHook :: Query Rational -> X () |