diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
| commit | 1af7582b30d70ded97db92a69673849372c98fb9 (patch) | |
| tree | f5e17574f1edd760920041bb551f02443046ae03 /Tabbed.hs | |
| parent | 11f2eae73be71fd0b810966fdb5fec22d856e6c9 (diff) | |
| download | XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.gz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.xz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.zip | |
changes to work with Stacks that can't be empty.
darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz
Diffstat (limited to 'Tabbed.hs')
| -rw-r--r-- | Tabbed.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -25,9 +25,8 @@ tabbed :: Layout tabbed = Layout { doLayout = dolay, modifyLayout = const (return Nothing) } dolay :: Rectangle -> W.Stack Window -> X [(Window, Rectangle)] -dolay _ W.Empty = return [] -dolay sc (W.Node w [] []) = return [(w,sc)] -dolay sc@(Rectangle x y wid _) s@(W.Node w _ _) = +dolay sc (W.Stack w [] []) = return [(w,sc)] +dolay sc@(Rectangle x y wid _) s@(W.Stack w _ _) = do let ws = W.integrate s ts = gentabs x y wid (length ws) tws = zip ts ws |