From a0603c8470ea8304e1c927783c83f7439c3a7e66 Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Mon, 22 Sep 2008 05:33:54 +0200
Subject: flip GridRatio to match convention (x/y)

darcs-hash:20080922033354-78224-4cb510268e145cf992aaec818f9d3da125cb1fa8.gz
---
 XMonad/Layout/Grid.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'XMonad/Layout')

diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs
index 09de582..be497bd 100644
--- a/XMonad/Layout/Grid.hs
+++ b/XMonad/Layout/Grid.hs
@@ -36,7 +36,7 @@ import XMonad.StackSet
 -- You can also specify an aspect ratio for Grid to strive for with the
 -- GridRatio constructor:
 --
--- > myLayouts = GridRatio (3/4) ||| etc.
+-- > myLayouts = GridRatio (4/3) ||| etc.
 --
 -- For more detailed instructions on editing the layoutHook see:
 --
@@ -45,7 +45,7 @@ import XMonad.StackSet
 data Grid a = Grid | GridRatio Double deriving (Read, Show)
 
 defaultRatio :: Double
-defaultRatio = 9/16
+defaultRatio = 16/9
 
 instance LayoutClass Grid a where
     pureLayout Grid          r = pureLayout (GridRatio defaultRatio) r
@@ -55,7 +55,7 @@ arrange :: Double -> Rectangle -> [a] -> [(a, Rectangle)]
 arrange aspectRatio (Rectangle rx ry rw rh) st = zip st rectangles
     where
     nwins = length st
-    ncols = max 1 . round . sqrt $ aspectRatio * fromIntegral nwins * fromIntegral rw / fromIntegral rh
+    ncols = max 1 . round . sqrt $ fromIntegral nwins * fromIntegral rw / (fromIntegral rh * aspectRatio)
     mincs = nwins `div` ncols
     extrs = nwins - ncols * mincs
     chop :: Int -> Dimension -> [(Position, Dimension)]
-- 
cgit v1.2.3