diff options
author | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-08-21 22:39:36 +0200 |
---|---|---|
committer | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-08-21 22:39:36 +0200 |
commit | 68c1d0f5d321fb88f0b87e9b8d2aa19512740342 (patch) | |
tree | 7a48fb2e2f4982d0a257b9b567b513924e2bb2d5 /XMonad/Layout/Monitor.hs | |
parent | e53b922365707337ffa3561b86281690f2b26fed (diff) | |
download | XMonadContrib-68c1d0f5d321fb88f0b87e9b8d2aa19512740342.tar.gz XMonadContrib-68c1d0f5d321fb88f0b87e9b8d2aa19512740342.tar.xz XMonadContrib-68c1d0f5d321fb88f0b87e9b8d2aa19512740342.zip |
More flexible interface for X.H.FadeInactive
Ignore-this: e905086d3fb640cbccf4eec2f11f293
This patch allows setting the opacity on a per-window basis and lets the
user specify it as a percentage instead of an Integer between 0 and 2^32-1.
darcs-hash:20090821203936-7f603-b7753508f41955036232b43effd5e93ab73dfc2f.gz
Diffstat (limited to 'XMonad/Layout/Monitor.hs')
-rw-r--r-- | XMonad/Layout/Monitor.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/XMonad/Layout/Monitor.hs b/XMonad/Layout/Monitor.hs index 5d13830..516c763 100644 --- a/XMonad/Layout/Monitor.hs +++ b/XMonad/Layout/Monitor.hs @@ -63,7 +63,7 @@ import Control.Monad -- > -- avoid flickering -- > , persistent = True -- > -- make the window transparent --- > , opacity = 0xAAAAAAAA +-- > , opacity = 0.6 -- > -- hide on start -- > , visible = False -- > -- assign it a name to be able to toggle it independently of others @@ -89,12 +89,12 @@ import Control.Monad -- Screenshot: <http://www.haskell.org/haskellwiki/Image:Xmonad-clock.png> data Monitor a = Monitor - { prop :: Property -- ^ property which uniquely identifies monitor window - , rect :: Rectangle -- ^ specifies where to put monitor - , visible :: Bool -- ^ is it visible by default? - , name :: String -- ^ name of monitor (useful when we have many of them) - , persistent :: Bool -- ^ is it shown on all layouts? - , opacity :: Integer -- ^ opacity level + { prop :: Property -- ^ property which uniquely identifies monitor window + , rect :: Rectangle -- ^ specifies where to put monitor + , visible :: Bool -- ^ is it visible by default? + , name :: String -- ^ name of monitor (useful when we have many of them) + , persistent :: Bool -- ^ is it shown on all layouts? + , opacity :: Rational -- ^ opacity level } deriving (Read, Show) -- | Template for 'Monitor' record. At least 'prop' and 'rect' should be @@ -106,7 +106,7 @@ monitor = Monitor , visible = True , name = "" , persistent = False - , opacity = 0xFFFFFFFF + , opacity = 1 } -- | Messages without names affect all monitors. Messages with names affect only |