diff options
-rw-r--r-- | Accordion.hs | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/Accordion.hs b/Accordion.hs index 5bfd77f..72f9d13 100644 --- a/Accordion.hs +++ b/Accordion.hs @@ -33,14 +33,9 @@ import Data.Ratio data Accordion a = Accordion deriving ( Read, Show ) instance Layout Accordion Window where - doLayout _ = accordionLayout - -accordionLayout :: Eq a => Rectangle -> W.Stack a -> X ([(a, Rectangle)], Maybe (Accordion a)) -accordionLayout sc ws = return ((zip ups tops) ++ - [(W.focus ws, mainPane)] ++ - (zip dns bottoms) - ,Nothing) - where ups = W.up ws + pureLayout _ sc ws = zip ups tops ++ [(W.focus ws, mainPane)] ++ zip dns bottoms + where + ups = W.up ws dns = W.down ws (top, allButTop) = splitVerticallyBy (1%8 :: Ratio Int) sc (center, bottom) = splitVerticallyBy (6%7 :: Ratio Int) allButTop |