twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-18 05:13:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

setInitialProperties after placing windows

Browse Source
This commit is contained in:
Spencer Janssen
2007-10-19 20:13:10 +00:00
parent 1be4bc5d91
commit f5ad470815
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Operations.hs
View File

@@ -121,7 +121,6 @@ windows f = do
let oldvisible = concatMap (W.integrate' . W.stack . W.workspace) $ W.current old : W.visible old let oldvisible = concatMap (W.integrate' . W.stack . W.workspace) $ W.current old : W.visible old
ws = f old ws = f old
XConf { display = d , normalBorder = nbc, focusedBorder = fbc } <- ask XConf { display = d , normalBorder = nbc, focusedBorder = fbc } <- ask
mapM_ setInitialProperties (W.allWindows ws \\ W.allWindows old)
whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc
modify (\s -> s { windowset = ws }) modify (\s -> s { windowset = ws })
@@ -167,6 +166,8 @@ windows f = do
-- return the visible windows for this workspace: -- return the visible windows for this workspace:
return vs return vs
mapM_ setInitialProperties (W.allWindows ws \\ W.allWindows old)
whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc
setTopFocus setTopFocus
userCode logHook userCode logHook