diff options
author | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
---|---|---|
committer | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
commit | a2ceae3cf6f302de2420f072238a29c9fbe8d974 (patch) | |
tree | bdd6ec53b679432c8a88a1cb60e4bc437b86a3dd /Combo.hs | |
parent | bea7c7116f233a785e4c96a1d577ca2797fe70bf (diff) | |
download | XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.gz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.xz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.zip |
Docstring parser for generating xmonad build configs with default settings for extensions
darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz
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) |