From a2ceae3cf6f302de2420f072238a29c9fbe8d974 Mon Sep 17 00:00:00 2001 From: Alex Tarkovsky Date: Wed, 5 Sep 2007 22:01:28 +0200 Subject: Docstring parser for generating xmonad build configs with default settings for extensions darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz --- Combo.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Combo.hs') diff --git a/Combo.hs b/Combo.hs index da9070f..cbf330e 100644 --- a/Combo.hs +++ b/Combo.hs @@ -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) -- cgit v1.2.3