mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 04:01:52 -07:00
move initColor to Operations and only store the Pixel value of colors
Moving initColor to Operations allows it to be used by extensions. The Pixel component of the color is the only thing we need, so it's simpler just to deal with that.
This commit is contained in:
5
Main.hs
5
Main.hs
@@ -42,12 +42,11 @@ main :: IO ()
|
||||
main = do
|
||||
dpy <- openDisplay ""
|
||||
let dflt = defaultScreen dpy
|
||||
initcolor c = fst `liftM` allocNamedColor dpy (defaultColormap dpy dflt) c
|
||||
|
||||
rootw <- rootWindow dpy dflt
|
||||
xinesc <- getScreenInfo dpy
|
||||
nbc <- initcolor normalBorderColor
|
||||
fbc <- initcolor focusedBorderColor
|
||||
nbc <- initColor dpy normalBorderColor
|
||||
fbc <- initColor dpy focusedBorderColor
|
||||
hSetBuffering stdout NoBuffering
|
||||
args <- getArgs
|
||||
|
||||
|
Reference in New Issue
Block a user