twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

3col fix: do not switch to tall layout on resize/incmastern

Browse Source
This commit is contained in:
Kai Grossjohann 2007-07-23 21:27:54 +00:00
parent 1845dcf2dd
commit 2bcc607718
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ThreeColumns.hs
View File

@ -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]