From 5edbb125958df0adadd354fae48877d36086abd5 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Mon, 20 Aug 2007 13:38:13 +0200
Subject: make Contrib use WorkspaceId

darcs-hash:20070820113813-72aca-30984283cb9c04185fde9c89253af00e16912c10.gz
---
 DynamicWorkspaces.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'DynamicWorkspaces.hs')

diff --git a/DynamicWorkspaces.hs b/DynamicWorkspaces.hs
index ab8dd8f..8decab1 100644
--- a/DynamicWorkspaces.hs
+++ b/DynamicWorkspaces.hs
@@ -21,7 +21,7 @@ module XMonadContrib.DynamicWorkspaces (
 
 import Control.Monad.State ( gets, modify )
 
-import XMonad ( X, XState(..), Layout, trace )
+import XMonad ( X, XState(..), Layout, WorkspaceId, trace )
 import Operations ( windows, view )
 import StackSet ( tagMember, StackSet(..), Screen(..), Workspace(..),
                   integrate, differentiate )
@@ -36,9 +36,12 @@ import Graphics.X11.Xlib ( Window )
 -- >   , ((modMask .|. shiftMask, xK_Up), addWorkspace defaultLayouts)
 -- >   , ((modMask .|. shiftMask, xK_Down), removeWorkspace)
 
+allPossibleTags :: [WorkspaceId]
+allPossibleTags = map (:"") ['0'..]
+
 addWorkspace :: [Layout Window] -> X ()
 addWorkspace (l:ls) = do s <- gets windowset
-                         let newtag:_ = filter (not . (`tagMember` s)) [0..]
+                         let newtag:_ = filter (not . (`tagMember` s)) allPossibleTags
                          modify $ \st -> st { layouts = insert newtag (l,ls) $ layouts st }
                          windows (addWorkspace' newtag)
 addWorkspace [] = trace "bad layouts in XMonadContrib.DynamicWorkspaces.addWorkspace\n"
-- 
cgit v1.2.3