twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 20:23:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Docstring parser for generating xmonad build configs with default settings for extensions

Browse Source
This commit is contained in:
Alex Tarkovsky
2007-09-05 20:01:28 +00:00
parent 39180985fb
commit d0adeca94a
37 changed files with 360 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Combo.hs
View File

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