twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-05 14:41:56 -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 float w = do
rr <- floatLocation w rr <- floatLocation w
windows $ \ws -> W.float w rr . fromMaybe ws $ do windows $ \ws -> W.float w rr . fromMaybe ws $ do
let sc = W.screen $ W.current ws
i <- W.findTag w ws i <- W.findTag w ws
guard $ i `elem` map (W.tag . W.workspace) (W.screens ws) guard $ i `elem` map (W.tag . W.workspace) (W.screens ws)
f <- W.peek 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) return (W.focusWindow f . W.shiftWin sw w $ ws)
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------