diff options
author | David Roundy <droundy@darcs.net> | 2007-09-21 23:21:59 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-21 23:21:59 +0200 |
commit | 85dc84516e3848ca9d9a268c121220de164d0e9e (patch) | |
tree | 4b498023867881b8e7392235b7e39037a292b2b1 /Main.hs | |
parent | 704ca55fc2de620d85929ca5cbcab5f2a03e77cc (diff) | |
download | metatile-85dc84516e3848ca9d9a268c121220de164d0e9e.tar metatile-85dc84516e3848ca9d9a268c121220de164d0e9e.zip |
add layout selection back into core xmonad using LayoutSelection.
This is just a reimplementation of LayoutChoice.
darcs-hash:20070921212159-72aca-870bb8d3e596fcb9edc48f51bec538054b4165e6
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -52,10 +52,11 @@ main = do let winset | ("--resume" : s : _) <- args , [(x, "")] <- reads s = x - | otherwise = new (fst safeLayouts) workspaces $ zipWith SD xinesc gaps + | otherwise = new (SomeLayout $ LayoutSelection safeLayouts) + workspaces $ zipWith SD xinesc gaps gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0) - safeLayouts = case defaultLayouts of [] -> (SomeLayout Full, []); (x:xs) -> (x,xs) + safeLayouts = if null defaultLayouts then [("full",SomeLayout Full)] else defaultLayouts cf = XConf { display = dpy , theRoot = rootw |