diff options
Diffstat (limited to '')
-rw-r--r-- | FloatKeys.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FloatKeys.hs b/FloatKeys.hs index 79d236f..5ea5e11 100644 --- a/FloatKeys.hs +++ b/FloatKeys.hs @@ -1,4 +1,3 @@ -{-# OPTIONS_GHC -fglasgow-exts #-} ----------------------------------------------------------------------------- -- | -- Module : XMonadContrib.FloatKeys @@ -87,8 +86,10 @@ keysAbsResizeWindow' :: SizeHints -> P -> D -> D -> D -> (P,D) keysAbsResizeWindow' sh (x,y) (w,h) (dx,dy) (ax, ay) = ((round nx, round ny), (nw, nh)) where (nw, nh) = applySizeHints sh (w + dx, h + dy) - nx :: Rational = fromIntegral (ax * w + nw * (fromIntegral x - ax)) / fromIntegral w - ny :: Rational = fromIntegral (ay * h + nh * (fromIntegral y - ay)) / fromIntegral h + nx :: Rational + nx = fromIntegral (ax * w + nw * (fromIntegral x - ax)) / fromIntegral w + ny :: Rational + ny = fromIntegral (ay * h + nh * (fromIntegral y - ay)) / fromIntegral h keysResizeWindow' :: SizeHints -> P -> D -> D -> G -> (P,D) keysResizeWindow' sh (x,y) (w,h) (dx,dy) (gx, gy) = ((nx, ny), (nw, nh)) |