twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 04:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Small linecount fix :)

Browse Source
This commit is contained in:
robreim
2008-03-08 02:19:39 +00:00
parent 797204fe6c
commit 1c930ba955
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Operations.hs
View File

@@ -419,11 +419,10 @@ float :: Window -> X ()
float w = do
rr <- floatLocation w
windows $ \ws -> W.float w rr . fromMaybe ws $ do
let sc = W.screen $ W.current ws
i <- W.findTag w ws
guard $ i `elem` map (W.tag . W.workspace) (W.screens ws)
f <- W.peek ws
sw <- W.lookupWorkspace sc ws
sw <- W.lookupWorkspace (W.screen $ W.current ws) ws
return (W.focusWindow f . W.shiftWin sw w $ ws)
-- ---------------------------------------------------------------------