From 314ba7833597859c7e245eed4b43d52899bce5a7 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 9 Dec 2008 23:37:00 +0000 Subject: [PATCH] Call logHook as the very last action in windows --- 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