make workspace tag not need to be a Num.

This change also removes the barely used 'size' field, and replaces
it with a tagMember predicate.  The idea is to move towards the ability
to make the workspace tag be a String, which by default might be "1".."9",
but could also be customized to be something meaningful to the user.
This commit is contained in:
David Roundy
2007-06-14 14:07:09 +00:00
parent a2c5aa3612
commit dbd58faffe
3 changed files with 63 additions and 58 deletions

View File

@@ -52,7 +52,7 @@ main = do
let winset | ("--resume" : s : _) <- args
, [(x, "")] <- reads s = x
| otherwise = new (fromIntegral workspaces) (fromIntegral $ length xinesc)
| otherwise = new [0..fromIntegral workspaces-1] (fromIntegral $ length xinesc)
safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x,xs)
cf = XConf