add new combo layout combiner.

darcs-hash:20070611224922-72aca-0881579ddddc2e12c9f9cb4cba9031a725a70913.gz

1 files changed, 26 insertions, 0 deletions

diff --git a/Combo.hs b/Combo.hs
new file mode 100644
index 0000000..4a9598d
--- /dev/null
+++ b/Combo.hs
@@ -0,0 +1,26 @@
+-- A layout that combines multiple layouts.
+
+-- To use this layout, 'import XMonadContrib.Combo' and add something like
+-- 'combo [(full,1),(tabbed,1)] (twoPane 0.03 0.5)' to your defaultLayouts.
+
+module XMonadContrib.Combo where
+
+import XMonad
+
+combo :: [(Layout, Int)] -> Layout -> Layout
+combo origls super = Layout { doLayout = arrange, modifyLayout = message }
+    where arrange _ [] = return []
+          arrange r [w] = return [(w,r)]
+          arrange rinput origws =
+              do rs <- map snd `fmap` doLayout super rinput (take (length origls) origws)
+                 let wss [] _ = []
+                     wss [_] ws = [ws]
+                     wss (n:ns) ws = take len1 ws : wss ns (drop len1 ws)
+                         where len1 = min n (length ws - length ns)
+                 out <- sequence $ zipWith3 doLayout (map fst origls) rs
+                                                     (wss (take (length rs) $ map snd origls) origws)
+                 return $ concat out
+          message m = do msuper' <- modifyLayout super m
+                         case msuper' of
+                           Nothing -> return Nothing
+                           Just super' -> return $ Just $ combo origls super'