From fabdf6a026b61e0602c86a7402dfafa47a9c2154 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Tue, 10 Apr 2007 08:27:31 +0200
Subject: moved screen <-> workspace mapping from XMonad to StackSet

darcs-hash:20070410062731-b9aa7-e1768a3fe6c0e3c749400dffc4a5a5e33e6a08c4
---
 Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 05cb69d..e7c24a6 100644
--- a/Main.hs
+++ b/Main.hs
@@ -43,14 +43,13 @@ main = do
     let st = XState
             { display       = dpy
             , xineScreens   = xinesc
-            , wsOnScreen    = M.fromList $ map (\n -> (n,n)) [0.. length xinesc - 1]
             , theRoot       = rootw
             , wmdelete      = wmdelt
             , wmprotocols   = wmprot
             -- fromIntegral needed for X11 versions that use Int instead of CInt.
             , dimensions    = (fromIntegral (displayWidth dpy dflt),
                                fromIntegral (displayHeight dpy dflt))
-            , workspace     = W.empty workspaces
+            , workspace     = W.empty workspaces (length xinesc)
             , defaultLayoutDesc = startingLayoutDesc
             , layoutDescs   = M.empty
             }
-- 
cgit v1.2.3