From 86d8f50784ebbc8904b4a2e97927201f247fe8cc Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 8 Apr 2008 00:07:56 +0200
Subject: Reveal windows after moving/resizing them.

This should reduce the number of repaints for newly visible windows.

darcs-hash:20080407220756-a5988-d59b1d765322cfcac42200538909818d4ef3a4b8
---
 XMonad/Operations.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad/Operations.hs')

diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 6a45553..4246912 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -154,6 +154,8 @@ windows f = do
     setTopFocus
     asks (logHook . config) >>= userCode
 
+    mapM_ reveal visible
+
     -- hide every window that was potentially visible before, but is not
     -- given a position by a layout now.
     mapM_ hide (nub (oldvisible ++ newwindows) \\ visible)
@@ -233,7 +235,6 @@ tileWindow w r = withDisplay $ \d -> do
                 | otherwise  = x - bw*2
     io $ moveResizeWindow d w (rect_x r) (rect_y r)
                               (least $ rect_width r) (least $ rect_height r)
-    reveal w
 
 -- ---------------------------------------------------------------------
 
-- 
cgit v1.2.3