From 9985952052bbfc577ce279d4cea8d082ae6fe0d4 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Fri, 18 Jan 2008 00:45:50 +0100
Subject: add 'single' helper function

darcs-hash:20080117234550-462cf-6f662a03c8ff21db0951ac2d61b59f1ff89c8ebf.gz
---
 XMonad/Layout/MultiToggle.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'XMonad/Layout/MultiToggle.hs')

diff --git a/XMonad/Layout/MultiToggle.hs b/XMonad/Layout/MultiToggle.hs
index 3fdbdce..2b6c8a1 100644
--- a/XMonad/Layout/MultiToggle.hs
+++ b/XMonad/Layout/MultiToggle.hs
@@ -23,6 +23,7 @@ module XMonad.Layout.MultiToggle (
     Toggle(..),
     (??),
     EOT(..),
+    single,
     mkToggle
 ) where
 
@@ -63,7 +64,7 @@ import Data.Maybe
 --
 -- After changing this to
 --
--- > layout = mkToggle (MIRROR ?? EOT) (tiled ||| Full)
+-- > layout = mkToggle (single MIRROR) (tiled ||| Full)
 --
 -- you can now dynamically apply the 'XMonad.Layout.Mirror' transformation:
 --
@@ -90,7 +91,7 @@ import Data.Maybe
 -- layout = id
 --     . 'XMonad.Layout.NoBorders.smartBorders'
 --     . mkToggle (NOBORDERS ?? FULL ?? EOT)
---     . mkToggle (MIRROR ?? EOT)
+--     . mkToggle (single MIRROR)
 --     $ tiled ||| 'XMonad.Layout.Grid.Grid' ||| 'XMonad.Layout.Circle.Circle'
 -- @
 --
@@ -164,6 +165,10 @@ infixr 0 ??
 (??) :: (HList b w) => a -> b -> HCons a b
 (??) = HCons
 
+-- | Construct a singleton transformer table.
+single :: a -> HCons a EOT
+single = (?? EOT)
+
 class HList c a where
     find :: (Transformer t a) => c -> t -> Maybe Int
     resolve :: c -> Int -> b -> (forall t. (Transformer t a) => t -> b) -> b
-- 
cgit v1.2.3