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

trace wsOnScreen when it's changed

Browse Source
This commit is contained in:
Jason Creighton 2007-03-19 03:56:29 +00:00
parent 92a8ad32d4
commit 226f2012cb
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Main.hs
View File

@ -342,6 +342,7 @@ view o = do
return 0 return 0
Just sc -> return sc Just sc -> return sc
modify $ \s -> s { wsOnScreen = M.insert n sc (M.filter (/=sc) ws2sc) } modify $ \s -> s { wsOnScreen = M.insert n sc (M.filter (/=sc) ws2sc) }
gets wsOnScreen >>= trace . show
windows $ W.view n windows $ W.view n
mapM_ hide (W.index m ws) mapM_ hide (W.index m ws)
setTopFocus setTopFocus