From ce836d963dc9b4d0dfff7953c73cde7c641f6986 Mon Sep 17 00:00:00 2001 From: Kai Grossjohann Date: Mon, 23 Jul 2007 23:27:54 +0200 Subject: 3col fix: do not switch to tall layout on resize/incmastern darcs-hash:20070723212754-07ca0-32f2bf91fb79e1d77f566516e3d81c36c7c45410.gz --- ThreeColumns.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ThreeColumns.hs') diff --git a/ThreeColumns.hs b/ThreeColumns.hs index 0abaac2..faa1dd9 100644 --- a/ThreeColumns.hs +++ b/ThreeColumns.hs @@ -20,7 +20,7 @@ module XMonadContrib.ThreeColumns ( import XMonad import qualified StackSet as W -import Operations ( Resize(..), IncMasterN(..), splitVertically, tall, splitHorizontallyBy ) +import Operations ( Resize(..), IncMasterN(..), splitVertically, splitHorizontallyBy ) import Data.Ratio @@ -46,9 +46,9 @@ threeCol nmaster delta frac = , modifyLayout = \m -> return $ msum [fmap resize (fromMessage m) ,fmap incmastern (fromMessage m)] } - where resize Shrink = tall nmaster delta (max 0 $ frac-delta) - resize Expand = tall nmaster delta (min 1 $ frac+delta) - incmastern (IncMasterN d) = tall (max 0 (nmaster+d)) delta frac + where resize Shrink = threeCol nmaster delta (max 0 $ frac-delta) + resize Expand = threeCol nmaster delta (min 1 $ frac+delta) + incmastern (IncMasterN d) = threeCol (max 0 (nmaster+d)) delta frac -- | tile3. Compute window positions using 3 panes tile3 :: Rational -> Rectangle -> Int -> Int -> [Rectangle] -- cgit v1.2.3