diff options
author | David Roundy <droundy@darcs.net> | 2007-06-20 14:54:20 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-20 14:54:20 +0200 |
commit | 236effe4663e4eb5e0510c22b1095ecb5d7defcb (patch) | |
tree | 3301529355ca2d29c604d6cd34449bc96741eddc /Accordion.hs | |
parent | 0fd45e3280f3f7252a5ad7c2e110eacafa75e5df (diff) | |
download | XMonadContrib-236effe4663e4eb5e0510c22b1095ecb5d7defcb.tar.gz XMonadContrib-236effe4663e4eb5e0510c22b1095ecb5d7defcb.tar.xz XMonadContrib-236effe4663e4eb5e0510c22b1095ecb5d7defcb.zip |
make some layouts more general.
darcs-hash:20070620125420-72aca-2802515a9c62727f8a8e53fdb480bbb5588f50e2.gz
Diffstat (limited to '')
-rw-r--r-- | Accordion.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Accordion.hs b/Accordion.hs index 6d5369f..0b47c70 100644 --- a/Accordion.hs +++ b/Accordion.hs @@ -27,11 +27,11 @@ import Data.Ratio -- > import XMonadContrib.Accordion -- > defaultLayouts = [ accordion ] -accordion :: Layout Window +accordion :: Eq a => Layout a accordion = Layout { doLayout = accordionLayout , modifyLayout = const $ return Nothing } -accordionLayout :: Rectangle -> W.Stack Window -> X [(Window, Rectangle)] +accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)] accordionLayout sc ws = return $ (zip ups tops) ++ [(W.focus ws, mainPane)] ++ (zip dns bottoms) |