twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add backwards compatability in X.H.FadeInactive

Browse Source
This commit is contained in:
Daniel Schoepe 2009-08-21 22:56:46 +00:00
parent 8fe80758a8
commit 8b6135f868
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Hooks/FadeInactive.hs
View File

@ -55,7 +55,7 @@ import Control.Monad
-- | Converts a percentage to the format required for _NET_WM_WINDOW_OPACITY -- | Converts a percentage to the format required for _NET_WM_WINDOW_OPACITY
rationalToOpacity :: Integral a => Rational -> a rationalToOpacity :: Integral a => Rational -> a
rationalToOpacity perc rationalToOpacity perc
| perc < 0 || perc > 1 = 0xffffffff -- invalid input, default to opaque | perc < 0 || perc > 1 = round perc -- to maintain backwards-compatability
| otherwise = round $ perc * 0xffffffff | otherwise = round $ perc * 0xffffffff
-- | sets the opacity of a window -- | sets the opacity of a window