twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-03 21:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

make Accordian use pureLayout.

Browse Source
This commit is contained in:
David Roundy
2007-09-25 19:21:17 +00:00
parent 23af4f228b
commit c2ca3c6593
1 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Accordion.hs
View File

@@ -33,14 +33,9 @@ import Data.Ratio
data Accordion a = Accordion deriving ( Read, Show ) data Accordion a = Accordion deriving ( Read, Show )
instance Layout Accordion Window where instance Layout Accordion Window where
doLayout _ = accordionLayout pureLayout _ sc ws = zip ups tops ++ [(W.focus ws, mainPane)] ++ zip dns bottoms
where
accordionLayout :: Eq a => Rectangle -> W.Stack a -> X ([(a, Rectangle)], Maybe (Accordion a)) ups = W.up ws
accordionLayout sc ws = return ((zip ups tops) ++
[(W.focus ws, mainPane)] ++
(zip dns bottoms)
,Nothing)
where ups = W.up ws
dns = W.down ws dns = W.down ws
(top, allButTop) = splitVerticallyBy (1%8 :: Ratio Int) sc (top, allButTop) = splitVerticallyBy (1%8 :: Ratio Int) sc
(center, bottom) = splitVerticallyBy (6%7 :: Ratio Int) allButTop (center, bottom) = splitVerticallyBy (6%7 :: Ratio Int) allButTop