aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/MultiToggle.hs9
1 files changed, 7 insertions, 2 deletions
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