Workspace-specific layouts

darcs-hash:20070326150213-3a569-64dd38c00558d58f27c3803ab15485892c24cfaa

1 files changed, 11 insertions, 11 deletions

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