twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 20:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Call logHook as the very last action in windows

Browse Source
This commit is contained in:
Spencer Janssen
2008-12-09 23:37:00 +00:00
parent 7aa78ecc75
commit 314ba78335
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Operations.hs
View File

@@ -154,15 +154,14 @@ windows f = do
mapM_ (uncurry tileWindow) rects mapM_ (uncurry tileWindow) rects
whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc 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 -- hide every window that was potentially visible before, but is not
-- given a position by a layout now. -- given a position by a layout now.
mapM_ hide (nub (oldvisible ++ newwindows) \\ visible) mapM_ hide (nub (oldvisible ++ newwindows) \\ visible)
mapM_ reveal visible
setTopFocus
-- all windows that are no longer in the windowset are marked as -- all windows that are no longer in the windowset are marked as
-- withdrawn, it is important to do this after the above, otherwise 'hide' -- withdrawn, it is important to do this after the above, otherwise 'hide'
-- will overwrite withdrawnState with iconicState -- will overwrite withdrawnState with iconicState
@@ -170,6 +169,7 @@ windows f = do
isMouseFocused <- asks mouseFocused isMouseFocused <- asks mouseFocused
unless isMouseFocused $ clearEvents enterWindowMask unless isMouseFocused $ clearEvents enterWindowMask
asks (logHook . config) >>= userCode
-- | Produce the actual rectangle from a screen and a ratio on that screen. -- | Produce the actual rectangle from a screen and a ratio on that screen.
scaleRationalRect :: Rectangle -> W.RationalRect -> Rectangle scaleRationalRect :: Rectangle -> W.RationalRect -> Rectangle