aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/XMonad/Main.hsc3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/XMonad/Main.hsc b/src/XMonad/Main.hsc
index 5d59042..4be4ac6 100644
--- a/src/XMonad/Main.hsc
+++ b/src/XMonad/Main.hsc
@@ -96,7 +96,8 @@ xmonad initxmc = do
let layout = layoutHook xmc
lreads = readsLayout layout
- initialWinset = new layout (workspaces xmc) $ map SD xinesc
+ initialWinset = let padToLen n xs = take (max n (length xs)) $ xs ++ repeat ""
+ in new layout (padToLen (length xinesc) (workspaces xmc)) $ map SD xinesc
maybeRead reads' s = case reads' s of
[(x, "")] -> Just x
_ -> Nothing