diff options
| author | Lukas Mai <l.mai@web.de> | 2008-04-02 03:21:26 +0200 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-04-02 03:21:26 +0200 |
| commit | c619e54c3545f8750610939297fffb3d430bf09f (patch) | |
| tree | fd9435f189eadb89a55a161ac04190a520c61296 /XMonad/Layout/Grid.hs | |
| parent | ac609136b989b7fa97b6a5cea993a8b423a58254 (diff) | |
| download | XMonadContrib-c619e54c3545f8750610939297fffb3d430bf09f.tar.gz XMonadContrib-c619e54c3545f8750610939297fffb3d430bf09f.tar.xz XMonadContrib-c619e54c3545f8750610939297fffb3d430bf09f.zip | |
Grid/HintedGrid: use an ncolumns formula inspired by dwm's "optimal" mode
darcs-hash:20080402012126-462cf-702c8178aefecd7feacc9fac0fe6774957acaf85.gz
Diffstat (limited to 'XMonad/Layout/Grid.hs')
| -rw-r--r-- | XMonad/Layout/Grid.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs index 6dcd1bb..070bd2f 100644 --- a/XMonad/Layout/Grid.hs +++ b/XMonad/Layout/Grid.hs @@ -46,7 +46,7 @@ arrange :: Rectangle -> [a] -> [(a, Rectangle)] arrange (Rectangle rx ry rw rh) st = zip st rectangles where nwins = length st - ncols = ceiling . (sqrt :: Double -> Double) . fromIntegral $ nwins + ncols = max 1 . round . sqrt $ fromIntegral nwins * fromIntegral rw / (fromIntegral rh :: Double) mincs = nwins `div` ncols extrs = nwins - ncols * mincs chop :: Int -> Dimension -> [(Position, Dimension)] |