From 962df57b2c5cbbdaf54900091a675c5f1d2c6aa1 Mon Sep 17 00:00:00 2001
From: hughes <hughes@rpi.edu>
Date: Mon, 26 Mar 2007 17:02:13 +0200
Subject: Workspace-specific layouts

darcs-hash:20070326150213-3a569-64dd38c00558d58f27c3803ab15485892c24cfaa
---
 Main.hs | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index b1cdd4c..c3cc33a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -41,17 +41,17 @@ main = do
     xinesc <- getScreenInfo dpy
 
     let st = XState
-            { display      = dpy
-            , screen       = dflt
-            , xineScreens  = xinesc
-            , wsOnScreen   = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
-            , theRoot      = rootw
-            , wmdelete     = wmdelt
-            , wmprotocols  = wmprot
-            , dimensions   = (displayWidth  dpy dflt, displayHeight dpy dflt)
-            , workspace    = W.empty workspaces
-            , layout       = defaultLayout
-            , leftWidth    = defaultLeftWidth
+            { display       = dpy
+            , screen        = dflt
+            , xineScreens   = xinesc
+            , wsOnScreen    = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
+            , theRoot       = rootw
+            , wmdelete      = wmdelt
+            , wmprotocols   = wmprot
+            , dimensions    = (displayWidth  dpy dflt, displayHeight dpy dflt)
+            , workspace     = W.empty workspaces
+            , defaultLayoutDesc = startingLayoutDesc
+            , layoutDescs   = M.empty
             }
 
     xSetErrorHandler -- in C, I'm too lazy to write the binding
-- 
cgit v1.2.3