From e021d93178b52c3ec845bbaa6bb481a25468ebe1 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 25 Sep 2007 21:21:17 +0200
Subject: make Accordian use pureLayout.

darcs-hash:20070925192117-72aca-db192d2f3dc458f06775cbbb3808cb9170925f8c.gz
---
 Accordion.hs | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'Accordion.hs')

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
-- 
cgit v1.2.3