The basic idea is to have a base layout and a set of layout transformers, of which at most one is active at any time. Enabling another transformer first disables any currently active transformer; i.e. it works like a group of radio buttons.

A side effect of this meta-layout is that layout transformers no longer receive any messages; any message not handled by MultiToggle itself will undo the current layout transformer, pass the message on to the base layout, then reapply the transformer.

To use this module, you first have to define the transformers that you want to be handled by MultiToggle. For example, if the transformer is XMonad.Layout.Mirror:

 data MIRROR = MIRROR deriving (Read, Show, Eq, Typeable)
 instance Transformer MIRROR Window where
     transform _ x k = k (Mirror x)

MIRROR can be any identifier (it has to start with an uppercase letter, of course); I've chosen an all-uppercase version of the transforming function's name here. You need to put {-# OPTIONS_GHC -fglasgow-exts #-} at the beginning of your file to be able to derive Data.Typeable.

Somewhere else in your file you probably have a definition of layout; the default looks like this:

 layout = tiled ||| Mirror tiled ||| Full

After changing this to

 layout = mkToggle (single MIRROR) (tiled ||| Full)

you can now dynamically apply the XMonad.Layout.Mirror transformation:

 ...
   , ((modMask,               xK_x     ), sendMessage $ Toggle MIRROR)
 ...

(That should be part of your key bindings.) When you press mod-x, the active layout is mirrored. Another mod-x and it's back to normal.

It's also possible to stack MultiToggles. Let's define a few more transformers (XMonad.Layout.NoBorders.noBorders is in XMonad.Layout.NoBorders):

 data NOBORDERS = NOBORDERS deriving (Read, Show, Eq, Typeable)
 instance Transformer NOBORDERS Window where
     transform _ x k = k (noBorders x)

 data FULL = FULL deriving (Read, Show, Eq, Typeable)
 instance Transformer FULL Window where
     transform _ x k = k Full

 layout = id
     . XMonad.Layout.NoBorders.smartBorders
     . mkToggle (NOBORDERS ?? FULL ?? EOT)
     . mkToggle (single MIRROR)
     $ tiled ||| XMonad.Layout.Grid.Grid ||| XMonad.Layout.Circle.Circle

By binding a key to (sendMessage $ Toggle FULL) you can temporarily maximize windows, in addition to being able to rotate layouts and remove window borders.