summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-04-08 00:07:56 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-04-08 00:07:56 +0200
commit86d8f50784ebbc8904b4a2e97927201f247fe8cc (patch)
tree666c11c172c3993987f32936f7eaad450b628f03 /XMonad
parent396aa50e300c68f28f2bafdfe8ef974b60cfb28d (diff)
downloadmetatile-86d8f50784ebbc8904b4a2e97927201f247fe8cc.tar
metatile-86d8f50784ebbc8904b4a2e97927201f247fe8cc.zip
Reveal windows after moving/resizing them.
This should reduce the number of repaints for newly visible windows. darcs-hash:20080407220756-a5988-d59b1d765322cfcac42200538909818d4ef3a4b8
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Operations.hs3
1 files changed, 2 insertions, 1 deletions
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
-- ---------------------------------------------------------------------