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

Document A.RandomBackground

Browse Source
This commit is contained in:
Adam Vogt 2009-10-20 16:52:05 +00:00
parent 3513c8386b
commit be635001de
1 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
XMonad/Actions/RandomBackground.hs
View File

@ -13,7 +13,13 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Actions.RandomBackground (randomBg',randomBg,RandomColor(HSV,RGB)) where module XMonad.Actions.RandomBackground (
-- * Usage
-- $usage
randomBg',
randomBg,
RandomColor(HSV,RGB)
) where
import XMonad(X, XConf(config), XConfig(terminal), io, spawn, import XMonad(X, XConf(config), XConfig(terminal), io, spawn,
MonadIO, asks) MonadIO, asks)
@ -21,9 +27,20 @@ import System.Random
import Control.Monad(replicateM,liftM) import Control.Monad(replicateM,liftM)
import Numeric(showHex) import Numeric(showHex)
-- | RandomColor fixes constraints when generating random colors -- $usage
data RandomColor = RGB { _colorMin :: Int, _colorMax :: Int } --
| HSV { _colorSaturation :: Double, _colorValue :: Double } -- Add to your keybindings something like:
--
-- > ,((modm .|. shiftMask, xK_Return), randomBg $ HSV 0xff 0x20
-- | RandomColor fixes constraints when generating random colors. All
-- parameters should be in the range 0 -- 0xff
data RandomColor = RGB { _colorMin :: Int
, _colorMax :: Int
} -- ^ specify the minimum and maximum lowest values for each color channel.
| HSV { _colorSaturation :: Double
, _colorValue :: Double
} -- ^ specify the saturation and value, leaving the hue random.
toHex :: [Int] -> String toHex :: [Int] -> String
toHex = ("'#"++) . (++"'") . concatMap (ensure 2 . ($ "") . showHex) toHex = ("'#"++) . (++"'") . concatMap (ensure 2 . ($ "") . showHex)
@ -36,7 +53,7 @@ randPermutation xs g = swap $ zip (randoms g) xs
swap ((False,x):ys) = x:swap ys swap ((False,x):ys) = x:swap ys
swap x = map snd x swap x = map snd x
-- | randomBg' produces a random hex number in the form @'#xxyyzz'@ -- | @randomBg'@ produces a random hex number in the form @'#xxyyzz'@
randomBg' :: (MonadIO m) => RandomColor -> m String randomBg' :: (MonadIO m) => RandomColor -> m String
randomBg' (RGB l h) = liftM toHex $ replicateM 3 $ io $ randomRIO (l,h) randomBg' (RGB l h) = liftM toHex $ replicateM 3 $ io $ randomRIO (l,h)
randomBg' (HSV s v) = io $ do randomBg' (HSV s v) = io $ do
@ -44,6 +61,10 @@ randomBg' (HSV s v) = io $ do
let x = (^(2::Int)) $ 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 return $ toHex $ map round $ randPermutation [v,(v-s)*x + s,s] g
-- | @randomBg@ starts a terminal with the background color taken from 'randomBg''
--
-- This depends on the your 'terminal' configuration field accepting an
-- argument like @-bg '#ff0023'@
randomBg :: RandomColor -> X () randomBg :: RandomColor -> X ()
randomBg x = do randomBg x = do
t <- asks (terminal . config) t <- asks (terminal . config)