From ebe403f6d573972a6f840fa9e3f8525905168893 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 11 Sep 2007 15:48:45 +0200
Subject: make fixedLayout accept a list of Rectangles.

This works nicely for describing a fixed xinerama-like layout.
(e.g. when using two distinct VNC clients to log into a single
VNC server and attain multiheadedness).

darcs-hash:20070911134845-72aca-dc9159d46d856aff4fd35d9afda0eac9421e24db.gz
---
 LayoutScreens.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'LayoutScreens.hs')

diff --git a/LayoutScreens.hs b/LayoutScreens.hs
index ca489c1..578b9e9 100644
--- a/LayoutScreens.hs
+++ b/LayoutScreens.hs
@@ -73,6 +73,6 @@ getWindowRectangle w = withDisplay $ \d ->
        return $ Rectangle (fromIntegral $ wa_x a)     (fromIntegral $ wa_y a)
                           (fromIntegral $ wa_width a) (fromIntegral $ wa_height a)
 
-fixedLayout :: Rectangle -> Layout a
-fixedLayout r = Layout { doLayout     = \_ (W.Stack f _ _) -> return ([(f, r)],Nothing)
+fixedLayout :: [Rectangle] -> Layout a
+fixedLayout rs = Layout { doLayout     = \_ s -> return (zip (W.integrate s) rs,Nothing)
                        , modifyLayout = const (return Nothing) } -- no changes
-- 
cgit v1.2.3