per-host selection of available workspaces

1 files changed, 4 insertions, 2 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index e6a581d..c0f1049 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -64,6 +64,7 @@ defaultHost = Host { hName = "unkown"
                    , hWsp = show
                    , hCoWsp = const Nothing
                    , hKeysMod = const id
+                   , hWspList = [1..]
                    }
 
 --hostFromName :: (LayoutClass l1 a, LayoutClass l2 a) => HostName -> Host (l1 a) (l2 a)
@@ -76,9 +77,10 @@ hostFromName h@("vali") = defaultHost { hName = h
                                       , hCoWsp = hCoWsp
                                       , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"])
                                                                                                                        ]
+                                      , hWspList = [2..]
                                       }
   where
-    workspaceNames = Map.fromList [ (1, "web")
+    workspaceNames = Map.fromList [ (2, "web")
                                   ]
     hWsp = wspFromMap workspaceNames
     hCoWsp = coWspFromMap workspaceNames
@@ -123,7 +125,7 @@ main = do
         , logHook = dynamicLogWithPP xmobarPP'
         , modMask = mod4Mask
         , keys = \conf -> hKeysMod host conf $ myKeys' conf
-        , workspaces = take (length numKeys) $ map wsp [1..]
+        , workspaces = take (length numKeys) $ map wsp (hWspList host)
         , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return ()
         , normalBorderColor = "#202020"
         , focusedBorderColor = "white"