diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-12-10 00:37:00 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-12-10 00:37:00 +0100 |
| commit | 9e3bb2d5ef72b43da045c628f78ccfcdb209cf19 (patch) | |
| tree | 01fd55b72cec050e3be7ac25f3bf8c1574bdbed3 | |
| parent | c532b39b5f2db30a5717fe7ce69fe4118882a17b (diff) | |
| download | xmonad-9e3bb2d5ef72b43da045c628f78ccfcdb209cf19.tar.gz xmonad-9e3bb2d5ef72b43da045c628f78ccfcdb209cf19.tar.xz xmonad-9e3bb2d5ef72b43da045c628f78ccfcdb209cf19.zip | |
Call logHook as the very last action in windows
Ignore-this: 4396ad891b607780f8e4b3b6bbce87e
darcs-hash:20081209233700-25a6b-f51049d32e75584ef91b0e4e8859f85f1a0163b8.gz
| -rw-r--r-- | XMonad/Operations.hs | 8 |
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 |