twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Introduce grayoutAllElements in X.A.GridSelect

Browse Source
This commit is contained in:
Clemens Fruhwirth
2010-10-16 21:25:59 +00:00
parent 27fc66bb2c
commit 3a886e0844
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Actions/GridSelect.hs
View File

@@ -280,8 +280,20 @@ updateAllElements =
state <- get
updateElements (td_elementmap state)
grayoutAllElements :: TwoD a ()
grayoutAllElements =
do
state <- get
updateElementsWithColorizer grayOnly (td_elementmap state)
where grayOnly _ _ = return ("#808080", "#808080")
updateElements :: TwoDElementMap a -> TwoD a ()
updateElements elementmap = do
state <- get
updateElementsWithColorizer (gs_colorizer (td_gsconfig state)) elementmap
updateElementsWithColorizer :: (a -> Bool -> X (String, String)) -> TwoDElementMap a -> TwoD a ()
updateElementsWithColorizer colorizer elementmap = do
TwoDState { td_curpos = curpos,
td_drawingWin = win,
td_gsconfig = gsconfig,
@@ -293,7 +305,7 @@ updateElements elementmap = do
paneX' = div (paneX-cellwidth) 2
paneY' = div (paneY-cellheight) 2
updateElement (pos@(x,y),(text, element)) = liftX $ do
colors <- gs_colorizer gsconfig element (pos == curpos)
colors <- colorizer element (pos == curpos)
drawWinBox win font
colors
cellheight