define defaultLayout in Config.hs.

This commit is contained in:
David Roundy
2007-09-28 02:02:08 +00:00
parent 16d4ce5706
commit 5ef7c5f5d0
4 changed files with 17 additions and 8 deletions

View File

@@ -53,10 +53,8 @@ main = do
let winset | ("--resume" : s : _) <- args
, [(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
cf = XConf
{ display = dpy
, theRoot = rootw