diff options
author | David Roundy <droundy@darcs.net> | 2007-06-24 19:13:46 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-24 19:13:46 +0200 |
commit | 70f204213b397a0fccfaea287420f032cb7e4e19 (patch) | |
tree | 1539fe854b1daa3d0dbb37693bc4f6b1a1bc3003 /Square.hs | |
parent | c46a24100a9d6ada07e5bf520fe797b53a6e7d26 (diff) | |
download | XMonadContrib-70f204213b397a0fccfaea287420f032cb7e4e19.tar.gz XMonadContrib-70f204213b397a0fccfaea287420f032cb7e4e19.tar.xz XMonadContrib-70f204213b397a0fccfaea287420f032cb7e4e19.zip |
clean up code in Combo.
This adds some type safety, since the super-layout is now of a distinct
type from the sublayouts. This avoids the ugliness we had, of passing
"fake" windows to the super layout. Now we directly lay out the layouts.
darcs-hash:20070624171346-72aca-e25332cad748281a8656487977d4f4351fcffc64.gz
Diffstat (limited to 'Square.hs')
-rw-r--r-- | Square.hs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -35,10 +35,9 @@ import XMonadContrib.LayoutHelpers ( l2lModDo ) -- An example layout using square together with "XMonadContrib.Combo" -- to make the very last area square: -- --- > , combo [(tabbed,3),(tabbed,30),(tabbed,1),(tabbed,1)] --- > (combo [(twoPane 0.03 0.2,1) --- > ,(combo [(twoPane 0.03 0.8,1),(square,1)] --- > (mirror $ twoPane 0.03 0.85),1)] (twoPane 0.03 0.5) ) +-- > , combo (combo (mirror $ twoPane 0.03 0.85),1)] (twoPane 0.03 0.5) ) +-- > [(twoPane 0.03 0.2,1),(combo [(twoPane 0.03 0.8,1),(square,1)] +-- > [(tabbed,3),(tabbed,30),(tabbed,1),(tabbed,1)] import XMonad import Graphics.X11.Xlib |