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

Fix defaulting warning with A.RandomBackground

Browse Source
This commit is contained in:
Adam Vogt 2009-07-16 23:49:55 +00:00
parent 4e3a4a2c8b
commit fdaeaa18de
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Actions/RandomBackground.hs
View File

@ -41,8 +41,7 @@ randomBg' :: (MonadIO m) => RandomColor -> m String
randomBg' (RGB l h) = liftM toHex $ replicateM 3 $ io $ randomRIO (l,h)
randomBg' (HSV s v) = io $ do
g <- newStdGen
let -- x = (sqrt 3 - tan theta) / sqrt 3
x = (^2) $ fst $ randomR (0,sqrt $ pi / 3) g
let x = (^(2::Int)) $ fst $ randomR (0,sqrt $ pi / 3) g
return $ toHex $ map round $ randPermutation [v,(v-s)*x + s,s] g
randomBg :: RandomColor -> X ()