From 6dbfcf78c007bb15d2befc76134657dfb7b3520c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 10 Dec 2008 00:37:00 +0100 Subject: Call logHook as the very last action in windows Ignore-this: 4396ad891b607780f8e4b3b6bbce87e darcs-hash:20081209233700-25a6b-f51049d32e75584ef91b0e4e8859f85f1a0163b8 --- XMonad/Operations.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3