diff options
author | Kai Grossjohann <kai@emptydomain.de> | 2007-07-23 23:27:54 +0200 |
---|---|---|
committer | Kai Grossjohann <kai@emptydomain.de> | 2007-07-23 23:27:54 +0200 |
commit | ce836d963dc9b4d0dfff7953c73cde7c641f6986 (patch) | |
tree | 8a56cca5b708fdfa3336221cd6f50a9bd76636f8 | |
parent | 50c635a862c38a0ca07b2e77068d6f2a58bbb487 (diff) | |
download | XMonadContrib-ce836d963dc9b4d0dfff7953c73cde7c641f6986.tar.gz XMonadContrib-ce836d963dc9b4d0dfff7953c73cde7c641f6986.tar.xz XMonadContrib-ce836d963dc9b4d0dfff7953c73cde7c641f6986.zip |
3col fix: do not switch to tall layout on resize/incmastern
darcs-hash:20070723212754-07ca0-32f2bf91fb79e1d77f566516e3d81c36c7c45410.gz
-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] |