From c443f386d09231cdc6164b3d360cde10fcb53f7a Mon Sep 17 00:00:00 2001 From: robreim Date: Sat, 8 Mar 2008 03:49:28 +0100 Subject: Fix to work with "floats always use current screen" patch darcs-hash:20080308024928-d4c7e-ecac63a09d430efd75413e3148e42b38c4ec2503.gz --- XMonad/Hooks/ManageHelpers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Hooks/ManageHelpers.hs') diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs index 45f7c06..0db80c7 100644 --- a/XMonad/Hooks/ManageHelpers.hs +++ b/XMonad/Hooks/ManageHelpers.hs @@ -140,7 +140,7 @@ doRectFloat r = ask >>= \w -> doF (W.float w r) -- | Floats a new window with its original size, but centered. 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) = W.RationalRect ((1-w)/2) ((1-h)/2) w h -- cgit v1.2.3