From e3edb7d59070b45dac7f04f95c2d494899402d13 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Fri, 28 Sep 2007 04:02:08 +0200 Subject: define defaultLayout in Config.hs. darcs-hash:20070928020208-72aca-ba2fa62ecf40abd9137c9632c7ee27525a62f48e --- Main.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index 89e2b0f..326955a 100644 --- a/Main.hs +++ b/Main.hs @@ -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 -- cgit v1.2.3