diff options
| -rw-r--r-- | XMonad/Layout/MultiToggle.hs | 9 |
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 |