diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-11 15:48:45 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-11 15:48:45 +0200 |
| commit | ebe403f6d573972a6f840fa9e3f8525905168893 (patch) | |
| tree | dfd5f88c1479105ba63c903344b89a1340cdd057 | |
| parent | 66a84f3ee7cc70a152fce3dbc4f8b91f0327f9e5 (diff) | |
| download | XMonadContrib-ebe403f6d573972a6f840fa9e3f8525905168893.tar.gz XMonadContrib-ebe403f6d573972a6f840fa9e3f8525905168893.tar.xz XMonadContrib-ebe403f6d573972a6f840fa9e3f8525905168893.zip | |
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
| -rw-r--r-- | LayoutScreens.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |