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

(limited to 'LayoutScreens.hs')

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