From ce00db454082a51ec95c817e97757e2e56f4ef8e Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 19 May 2007 00:42:40 +0200
Subject: TwoPane: hide windows that aren't in view
darcs-hash:20070518224240-a5988-6cf094f4b9cad663ca305c01a5e6b023bd77e04f.gz
---
TwoPane.hs | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/TwoPane.hs b/TwoPane.hs
index 0007c38..56925c6 100644
--- a/TwoPane.hs
+++ b/TwoPane.hs
@@ -15,12 +15,14 @@ import Control.Monad.State (gets)
twoPane :: Rational -> Rational -> Layout
twoPane delta split = Layout { doLayout = arrange, modifyLayout = message }
where
- arrange rect (w:x:_) = do
+ arrange rect ws@(w:x:_) = do
(Just f) <- gets (W.peek . workspace) -- safe because of pattern match above
- let (left, right) = splitHorizontallyBy split rect
- return [(w, left), (if f == w then x else f, right)]
+ let y = if f == w then x else f
+ (left, right) = splitHorizontallyBy split rect
+ mapM_ hide . filter (\a -> a /= w && a /= y) $ ws
+ return [(w, left), (y, right)]
-- there are one or zero windows
- arrange rect ws = return . map (\w -> (w, rect)) $ ws
+ arrange rect ws = return . map (\w -> (w, rect)) $ ws
message x = case fromMessage x of
Just Shrink -> Just (twoPane delta (split - delta))
--
cgit v1.2.3