1
0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-13 19:25:52 -07:00

TwoPane: hide windows that aren't in view

This commit is contained in:
Spencer Janssen
2007-05-18 22:42:40 +00:00
parent 14c984ae65
commit 325c2b90c5

@@ -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))