diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-23 23:09:52 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-23 23:09:52 +0200 |
| commit | 5f1312128d87961231d5431af0885711a01cd120 (patch) | |
| tree | 5b785ff7779d1d842bc17ac554ccbe759ea4c35d /Accordion.hs | |
| parent | b40d0f8237f4140decbf4edc7366b900cf82428b (diff) | |
| download | XMonadContrib-5f1312128d87961231d5431af0885711a01cd120.tar.gz XMonadContrib-5f1312128d87961231d5431af0885711a01cd120.tar.xz XMonadContrib-5f1312128d87961231d5431af0885711a01cd120.zip | |
make everything work with new doLayout.
This modifies all the contrib modules to work (so far as I know) with the
new contrib layout. The exception is the LayoutHooks module, which isn't
used. It exports an API that is inherently unsafe, so far as I can tell
(and always has been).
darcs-hash:20070623210952-72aca-1993ca13dc6996b59fedacc271c03fbaf87eabaa.gz
Diffstat (limited to 'Accordion.hs')
| -rw-r--r-- | Accordion.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Accordion.hs b/Accordion.hs index 96ba448..37dc972 100644 --- a/Accordion.hs +++ b/Accordion.hs @@ -31,10 +31,11 @@ import XMonadContrib.LayoutHelpers ( idModify ) accordion :: Eq a => Layout a accordion = Layout { doLayout = accordionLayout, modifyLayout = idModify } -accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)] -accordionLayout sc ws = return $ (zip ups tops) ++ - [(W.focus ws, mainPane)] ++ - (zip dns bottoms) +accordionLayout :: Eq a => Rectangle -> W.Stack a -> X ([(a, Rectangle)], Maybe (Layout a)) +accordionLayout sc ws = return ((zip ups tops) ++ + [(W.focus ws, mainPane)] ++ + (zip dns bottoms) + ,Nothing) where ups = W.up ws dns = W.down ws (top, allButTop) = splitVerticallyBy (1%8) sc |