diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-16 13:52:47 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-16 13:52:47 +0100 |
| commit | 9936595ba676f944be1969dab30e1ced37034400 (patch) | |
| tree | 4833b24884f76892a30edffdbb9b9051f2f39214 /XMonad | |
| parent | df967aabe8d30055e231041dbc46291d228fffc2 (diff) | |
| download | XMonadContrib-9936595ba676f944be1969dab30e1ced37034400.tar.gz XMonadContrib-9936595ba676f944be1969dab30e1ced37034400.tar.xz XMonadContrib-9936595ba676f944be1969dab30e1ced37034400.zip | |
XUtils: remove stringToPixel
darcs-hash:20071116125247-a5988-f866973d279808a3e15659be7d0f16fbdcef7a42.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Util/XUtils.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index 98db6d5..af7aea4 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -37,15 +37,6 @@ import XMonad.Util.Font -- $usage -- See Tabbed or DragPane for usage examples --- | Get the Pixel value for a named color: if an invalid name is --- given the black pixel will be returned. -stringToPixel :: String -> X Pixel -stringToPixel s = do - d <- asks display - io $ catch (getIt d) (fallBack d) - where getIt d = initColor d s - fallBack d = const $ return $ blackPixel d (defaultScreen d) - -- | Compute the weighted average the colors of two given Pixel values. averagePixels :: Pixel -> Pixel -> Double -> X Pixel averagePixels p1 p2 f = |