twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

hack to avoid crash when fewer workspaces than screens (#543)

Browse Source
This commit is contained in:
Adam Vogt 2014-05-02 17:59:10 +00:00
parent aa84841289
commit d67dcd8c4b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/XMonad/Main.hsc
View File

@ -96,7 +96,8 @@ xmonad initxmc = do
let layout = layoutHook xmc let layout = layoutHook xmc
lreads = readsLayout layout 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 maybeRead reads' s = case reads' s of
[(x, "")] -> Just x [(x, "")] -> Just x
_ -> Nothing _ -> Nothing