diff options
Diffstat (limited to '')
-rw-r--r-- | ThreeColumns.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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] |