diff options
author | daniel <daniel@wagner-home.com> | 2008-09-22 03:09:50 +0200 |
---|---|---|
committer | daniel <daniel@wagner-home.com> | 2008-09-22 03:09:50 +0200 |
commit | 577a6c9b6654cf2e3007bce0fa56334e45be06b1 (patch) | |
tree | f0182e4772bf9deac078c7f2c805de61a89a2cfa /XMonad/Layout/IM.hs | |
parent | d92ce0fc37be23cb5db06e7e7c5644218ea1e218 (diff) | |
download | XMonadContrib-577a6c9b6654cf2e3007bce0fa56334e45be06b1.tar.gz XMonadContrib-577a6c9b6654cf2e3007bce0fa56334e45be06b1.tar.xz XMonadContrib-577a6c9b6654cf2e3007bce0fa56334e45be06b1.zip |
let Grid have a configurable aspect ratio goal
darcs-hash:20080922010950-c98ca-2077ed7e1b481c7849d7501ff4435d9a3fabdde9.gz
Diffstat (limited to 'XMonad/Layout/IM.hs')
-rw-r--r-- | XMonad/Layout/IM.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/IM.hs b/XMonad/Layout/IM.hs index 0f45d35..ba342d3 100644 --- a/XMonad/Layout/IM.hs +++ b/XMonad/Layout/IM.hs @@ -122,6 +122,6 @@ instance LayoutClass IM Window where let (masterRect, slaveRect) = splitHorizontallyBy r rect master <- findM (hasProperty prop) ws let positions = case master of - Just w -> (w, masterRect) : arrange slaveRect (filter (w /=) ws) - Nothing -> arrange rect ws + Just w -> (w, masterRect) : arrange defaultRatio slaveRect (filter (w /=) ws) + Nothing -> arrange defaultRatio rect ws return (positions, Nothing) |