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 | eea8dd3b0779e4d14767b7d0615efef8aad009e4 (patch) | |
tree | c05565c1fc875ea35aa21a0dd28f179c3c13aeed /Main.hs | |
parent | e388f75a997ee478a00073c4f1beaf17fb1276bc (diff) | |
download | xmonad-eea8dd3b0779e4d14767b7d0615efef8aad009e4.tar.gz xmonad-eea8dd3b0779e4d14767b7d0615efef8aad009e4.tar.xz xmonad-eea8dd3b0779e4d14767b7d0615efef8aad009e4.zip |
merge old workspace tags with new on restart.
darcs-hash:20070926183309-72aca-82f1dcb215861fd866ad0bc89454b9c14ce10adb.gz
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 |