diff options
Diffstat (limited to 'XMonad/Layout/Column.hs')
| -rw-r--r-- | XMonad/Layout/Column.hs | 4 |
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)) |