diff options
Diffstat (limited to 'Combo.hs')
| -rw-r--r-- | Combo.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -32,7 +32,7 @@ import StackSet ( integrate, differentiate ) -- -- and add something like -- --- > simpleStacking $ combo (twoPane 0.03 0.5) [(full,1),(tabbed shrinkText,1)] +-- > simpleStacking $ combo (twoPane 0.03 0.5) [(full,1),(tabbed shrinkText defaultTConf,1)] -- -- to your defaultLayouts. -- @@ -43,6 +43,10 @@ import StackSet ( integrate, differentiate ) -- windows this section should hold. This number is ignored for the last -- layout, which will hold any excess windows. +-- %import XMonadContrib.Combo +-- %import XMonadContrib.SimpleStacking +-- %layout , simpleStacking $ combo (twoPane 0.03 0.5) [(full,1),(tabbed shrinkText defaultTConf,1)] + combo :: Layout (Layout a, Int) -> [(Layout a, Int)] -> Layout a combo super origls = Layout { doLayout = \r s -> arrange r (integrate s), modifyLayout = message } where arrange _ [] = return ([], Nothing) |