From 279239e4b6ad9f6c559deb456a13856113f614a7 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 9 Feb 2008 17:39:17 +0100
Subject: Tabbed: add simpleTabbed and fx documentation

simpleTabbed is just a version of tabbed with default theme and
default srhinker.

darcs-hash:20080209163917-32816-e3591acbdfcb38ed0b7c712392a9808d2b78a373.gz
---
 XMonad/Layout/Tabbed.hs | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index db4ba3e..a1c81bf 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -17,7 +17,7 @@
 module XMonad.Layout.Tabbed
     ( -- * Usage:
       -- $usage
-      tabbed, addTabs
+      simpleTabbed, tabbed, addTabs
     , Theme (..)
     , defaultTheme
     , TabbedDecoration (..)
@@ -40,7 +40,14 @@ import XMonad.Layout.Simplest ( Simplest(Simplest) )
 --
 -- Then edit your @layoutHook@ by adding the Tabbed layout:
 --
--- > myLayouts = tabDeco shrinkText defaultTheme ||| Full ||| etc..
+-- > myLayouts = simpleTabbed ||| Full ||| etc..
+--
+-- or, if you want a specific theme for you tabbed layout:
+--
+-- > myLayouts = tabbed shrinkText defaultTheme ||| Full ||| etc..
+--
+-- and then:
+--
 -- > main = xmonad defaultConfig { layoutHook = myLayouts }
 --
 -- For more detailed instructions on editing the layoutHook see:
@@ -56,7 +63,21 @@ import XMonad.Layout.Simplest ( Simplest(Simplest) )
 --
 -- > mylayout = tabDeco shrinkText myTabConfig ||| Full ||| etc..
 
--- | This function is deprecated and will be removed before 0.7!!
+-- | A tabbed layout with the default xmonad Theme. Here's a screen
+-- shot:
+--
+-- <http://code.haskell.org/~arossato/xmonadShots/simpleTabbed.png>
+--
+-- This is a minimal working configuration:
+--
+-- > import XMonad
+-- > import XMonad.Layout.DecorationMadness
+-- > main = xmonad defaultConfig { layoutHook = simpleTabbed }
+simpleTabbed :: ModifiedLayout (Decoration TabbedDecoration DefaultShrinker) Simplest Window
+simpleTabbed = decoration shrinkText defaultTheme Tabbed Simplest
+
+-- | A layout decorated with tabs and the possibility to set a custom
+-- shrinker and a custom theme.
 tabbed :: (Eq a, Shrinker s) => s -> Theme
        -> ModifiedLayout (Decoration TabbedDecoration s) Simplest a
 tabbed s c = decoration s c Tabbed Simplest
-- 
cgit v1.2.3