aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/Column.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/Column.hs b/XMonad/Layout/Column.hs
index a77b3d8..ba87122 100644
--- a/XMonad/Layout/Column.hs
+++ b/XMonad/Layout/Column.hs
@@ -61,9 +61,9 @@ columnLayout (Column q) rect stack = zip ws rects
mkRect :: Rectangle -> (Dimension,Position) -> Rectangle
mkRect (Rectangle xs ys ws _) (h,y) = Rectangle xs (ys+fromIntegral y) ws h
-
+
xn :: Int -> Rectangle -> Float -> Int -> Dimension
-xn n (Rectangle _ _ _ h) q k = if q==1 then
+xn n (Rectangle _ _ _ h) q k = if q==1 then
h `div` (fromIntegral n)
else
round ((fromIntegral h)*q^(n-k)*(1-q)/(1-q^n))