diff options
author | David Roundy <droundy@darcs.net> | 2007-09-26 20:33:09 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-26 20:33:09 +0200 |
commit | ba5dbac933d6e14aad4fbf34bff08ebdb6f42a5a (patch) | |
tree | c05565c1fc875ea35aa21a0dd28f179c3c13aeed /Main.hs | |
parent | e866f7d6c0fc5b56229ec8befea1ae5bac9a4b97 (diff) | |
download | metatile-ba5dbac933d6e14aad4fbf34bff08ebdb6f42a5a.tar metatile-ba5dbac933d6e14aad4fbf34bff08ebdb6f42a5a.zip |
merge old workspace tags with new on restart.
darcs-hash:20070926183309-72aca-82f1dcb215861fd866ad0bc89454b9c14ce10adb
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -51,9 +51,9 @@ main = do args <- getArgs let winset | ("--resume" : s : _) <- args - , [(x, "")] <- reads s = x - | otherwise = new (SomeLayout $ LayoutSelection safeLayouts) - workspaces $ zipWith SD xinesc gaps + , [(x, "")] <- reads s = W.ensureTags defaultLayout workspaces x + | otherwise = new defaultLayout workspaces $ zipWith SD xinesc gaps + defaultLayout = SomeLayout $ LayoutSelection safeLayouts gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0) safeLayouts = if null defaultLayouts then [SomeLayout Full] else defaultLayouts |