add (unused) Layout to StackSet.

This commit is contained in:
David Roundy
2007-09-20 21:28:43 +00:00
parent f3f12383f0
commit 70282f23dc
4 changed files with 53 additions and 51 deletions

View File

@@ -52,7 +52,7 @@ main = do
let winset | ("--resume" : s : _) <- args
, [(x, "")] <- reads s = x
| otherwise = new workspaces $ zipWith SD xinesc gaps
| otherwise = new (fst safeLayouts) workspaces $ zipWith SD xinesc gaps
gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0)
safeLayouts = case defaultLayouts of [] -> (SomeLayout Full, []); (x:xs) -> (x,xs)