summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index 33812ef..ae0b596 100644
--- a/Main.hs
+++ b/Main.hs
@@ -45,7 +45,8 @@ main = do
nbc <- initcolor normalBorderColor
fbc <- initcolor focusedBorderColor
- let cf = XConf
+ let safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x, xs)
+ cf = XConf
{ display = dpy
, xineScreens = xinesc
, theRoot = rootw
@@ -59,7 +60,7 @@ main = do
}
st = XState
{ workspace = W.empty workspaces (length xinesc)
- , layouts = M.empty
+ , layouts = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]]
}
xSetErrorHandler -- in C, I'm too lazy to write the binding