From e10ef71da054c12355f720344d4c4ca0c11b4e12 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 23 Sep 2007 23:59:42 +0200
Subject: convert LayoutScreens to class.
darcs-hash:20070923215942-72aca-5bba94380ce9f493e2ba3b2ff339485003562816.gz
---
LayoutScreens.hs | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/LayoutScreens.hs b/LayoutScreens.hs
index 578b9e9..c3de2ba 100644
--- a/LayoutScreens.hs
+++ b/LayoutScreens.hs
@@ -54,7 +54,7 @@ import Graphics.X11.Xlib.Extras
-- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5))
-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
-layoutScreens :: Int -> Layout Int -> X ()
+layoutScreens :: Layout l Int => Int -> l Int -> X ()
layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens."
layoutScreens nscr l =
do rtrect <- asks theRoot >>= getWindowRectangle
@@ -73,6 +73,10 @@ 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 rs = Layout { doLayout = \_ s -> return (zip (W.integrate s) rs,Nothing)
- , modifyLayout = const (return Nothing) } -- no changes
+data FixedLayout a = FixedLayout [Rectangle] deriving (Read,Show)
+
+instance Layout FixedLayout a where
+ doLayout (FixedLayout rs) _ s = return (zip (W.integrate s) rs, Nothing)
+
+fixedLayout :: [Rectangle] -> FixedLayout a
+fixedLayout = FixedLayout
--
cgit v1.2.3