diff options
Diffstat (limited to 'src/XMonad/Main.hsc')
| -rw-r--r-- | src/XMonad/Main.hsc | 3 |
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 |