From 4d1dd4f341d876c7fa7a2738585855cb4e5e8fc1 Mon Sep 17 00:00:00 2001
From: Clemens Fruhwirth <clemens@endorphin.org>
Date: Sat, 16 Oct 2010 23:25:59 +0200
Subject: Introduce grayoutAllElements in X.A.GridSelect

Ignore-this: 78ca0416b12a49965db876c77e02387f

darcs-hash:20101016212559-ed0c4-081f1b143a7935f5e1336442c78cf0654c357fe9.gz
---
 XMonad/Actions/GridSelect.hs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'XMonad/Actions')

diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index c83de8b..91735ed 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -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
-- 
cgit v1.2.3