From 86244fae66ff444a318895680764d29517295fa5 Mon Sep 17 00:00:00 2001 From: moserq Date: Fri, 1 Oct 2010 12:41:42 +0200 Subject: Split X.L.Groups.Examples Ignore-this: 4d3bc3c44b1c0233d59c6ce5eefcc587 X.L.G.Examples : rowOfColumns and tiled tabs layouts X.L.G.Helpers : helper actions X.L.G.Wmii : wmii layout darcs-hash:20101001104142-88fd0-6ac471ab66a886497aba7d6c0b4803c3b8aaa884.gz --- XMonad/Layout/Groups.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'XMonad/Layout/Groups.hs') diff --git a/XMonad/Layout/Groups.hs b/XMonad/Layout/Groups.hs index fad1154..e0d8efb 100644 --- a/XMonad/Layout/Groups.hs +++ b/XMonad/Layout/Groups.hs @@ -73,9 +73,9 @@ import Control.Monad (forM) -- group, and the layout with which the groups themselves will -- be arranged on the screen. -- --- The "XMonad.Layout.Groups.Examples" module contains examples of --- layouts that can be defined with this combinator, and useful --- operations on them. It is also the recommended starting point +-- The "XMonad.Layout.Groups.Examples" and "XMonad.Layout.Groups.Wmii" +-- modules contain examples of layouts that can be defined with this +-- combinator. They're also the recommended starting point -- if you are a beginner and looking for something you can use easily. -- -- One thing to note is that 'Groups'-based layout have their own @@ -87,7 +87,7 @@ import Control.Monad (forM) -- example 'ModifySpec's (to be passed to the 'Modify' message) provided -- by this module. -- --- If you use both 'Groups'-based and other layouts, The "XMonad.Layout.Groups.Examples" +-- If you use both 'Groups'-based and other layouts, The "XMonad.Layout.Groups.Helpers" -- module provides actions that can work correctly with both, defined using -- functions from "XMonad.Actions.MessageFeedback". @@ -117,10 +117,10 @@ gen (U i1 i2) = (U (i1+1) i2, zipWith U (repeat i1) [i2..]) -- | Split an infinite list into two. I ended up not -- needing this, but let's keep it just in case. -split :: [a] -> ([a], [a]) -split as = snd $ foldr step (True, ([], [])) as - where step a (True, (as1, as2)) = (False, (a:as1, as2)) - step a (False, (as1, as2)) = (True, (as1, a:as2)) +-- split :: [a] -> ([a], [a]) +-- split as = snd $ foldr step (True, ([], [])) as +-- where step a (True, (as1, as2)) = (False, (a:as1, as2)) +-- step a (False, (as1, as2)) = (True, (as1, a:as2)) -- | Add a unique identity to a layout so we can -- follow it around. -- cgit v1.2.3