diff options
| author | Lukas Mai <l.mai@web.de> | 2008-07-17 22:51:38 +0200 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-07-17 22:51:38 +0200 |
| commit | 892ec2de7654fd1d321d97be443e477d18aa18fa (patch) | |
| tree | ac49623c8046ffcb24b32cd0c9fe7b28103a11bd /XMonad/Layout/HintedGrid.hs | |
| parent | 4c7daa88fa27fedea1d7b45c2ccd27cdea68b60a (diff) | |
| download | XMonadContrib-892ec2de7654fd1d321d97be443e477d18aa18fa.tar.gz XMonadContrib-892ec2de7654fd1d321d97be443e477d18aa18fa.tar.xz XMonadContrib-892ec2de7654fd1d321d97be443e477d18aa18fa.zip | |
Grid/HintedGrid: prefer wider windows
darcs-hash:20080717205138-462cf-c688ae9b5e4909d12e5e3ac58400a28fcad584c0.gz
Diffstat (limited to 'XMonad/Layout/HintedGrid.hs')
| -rw-r--r-- | XMonad/Layout/HintedGrid.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/HintedGrid.hs b/XMonad/Layout/HintedGrid.hs index 3b14b08..f8a52c3 100644 --- a/XMonad/Layout/HintedGrid.hs +++ b/XMonad/Layout/HintedGrid.hs @@ -109,7 +109,7 @@ arrange' :: D -> [D -> D] -> [Rectangle] arrange' (rw, rh) adjs = reverse $ doRect rh rw (fromIntegral ncolumns) (ecols ++ cols) where nwindows = length adjs - ncolumns = max 1 . round . sqrt $ fromIntegral nwindows * fromIntegral rw / (fromIntegral rh :: Double) + ncolumns = max 1 . round . sqrt $ fromIntegral nwindows * 9 * fromIntegral rw / (16 * fromIntegral rh :: Double) nrows = nwindows `div` ncolumns nextras = nwindows - ncolumns * nrows (ecols, adjs') = replicateS nextras (splitAt (nrows + 1)) $ reverse adjs |