summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2008-12-10 00:37:00 +0100
committerSpencer Janssen <spencerjanssen@gmail.com>2008-12-10 00:37:00 +0100
commit6dbfcf78c007bb15d2befc76134657dfb7b3520c (patch)
tree01fd55b72cec050e3be7ac25f3bf8c1574bdbed3
parentf3b77e1106af7979d1e8fe9a5a01d4319169b64e (diff)
downloadmetatile-6dbfcf78c007bb15d2befc76134657dfb7b3520c.tar
metatile-6dbfcf78c007bb15d2befc76134657dfb7b3520c.zip
Call logHook as the very last action in windows
Ignore-this: 4396ad891b607780f8e4b3b6bbce87e darcs-hash:20081209233700-25a6b-f51049d32e75584ef91b0e4e8859f85f1a0163b8
-rw-r--r--XMonad/Operations.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index ba9c774..8cc1710 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -154,15 +154,14 @@ windows f = do
mapM_ (uncurry tileWindow) rects
whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc
- asks (logHook . config) >>= userCode
-
- mapM_ reveal visible
- setTopFocus
-- hide every window that was potentially visible before, but is not
-- given a position by a layout now.
mapM_ hide (nub (oldvisible ++ newwindows) \\ visible)
+ mapM_ reveal visible
+ setTopFocus
+
-- all windows that are no longer in the windowset are marked as
-- withdrawn, it is important to do this after the above, otherwise 'hide'
-- will overwrite withdrawnState with iconicState
@@ -170,6 +169,7 @@ windows f = do
isMouseFocused <- asks mouseFocused
unless isMouseFocused $ clearEvents enterWindowMask
+ asks (logHook . config) >>= userCode
-- | Produce the actual rectangle from a screen and a ratio on that screen.
scaleRationalRect :: Rectangle -> W.RationalRect -> Rectangle