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

Column.hs: rm whitespace

Browse Source
This commit is contained in:
gwern0
2010-03-14 21:00:01 +00:00
parent c3796a9cb1
commit b267617eee
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/Column.hs
View File

@@ -61,9 +61,9 @@ columnLayout (Column q) rect stack = zip ws rects
mkRect :: Rectangle -> (Dimension,Position) -> Rectangle mkRect :: Rectangle -> (Dimension,Position) -> Rectangle
mkRect (Rectangle xs ys ws _) (h,y) = Rectangle xs (ys+fromIntegral y) ws h mkRect (Rectangle xs ys ws _) (h,y) = Rectangle xs (ys+fromIntegral y) ws h
xn :: Int -> Rectangle -> Float -> Int -> Dimension 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) h `div` (fromIntegral n)
else else
round ((fromIntegral h)*q^(n-k)*(1-q)/(1-q^n)) round ((fromIntegral h)*q^(n-k)*(1-q)/(1-q^n))