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

Fix to work with "floats always use current screen" patch

Browse Source
This commit is contained in:
robreim 2008-03-08 02:49:28 +00:00
parent 8950dced20
commit c4b0af9adf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Hooks/ManageHelpers.hs
View File

@ -140,7 +140,7 @@ doRectFloat r = ask >>= \w -> doF (W.float w r)
-- | Floats a new window with its original size, but centered. -- | Floats a new window with its original size, but centered.
doCenterFloat :: ManageHook doCenterFloat :: ManageHook
doCenterFloat = ask >>= \w -> doF . W.float w . center . snd =<< liftX (floatLocation w) doCenterFloat = ask >>= \w -> doF . W.float w . center =<< liftX (floatLocation w)
where center (W.RationalRect _ _ w h) where center (W.RationalRect _ _ w h)
= W.RationalRect ((1-w)/2) ((1-h)/2) w h = W.RationalRect ((1-w)/2) ((1-h)/2) w h