+-- Necessary for reflectVert.
+import XMonad.Layout.Reflect
+-- Necessary for avoidMaster.
+import qualified XMonad.StackSet as W
+-- Necessary for smartBorders.
+import XMonad.Layout.NoBorders
+
+
+-- Prevent new windows from spawning in the master pane. Taken from
+-- http://haskell.org/haskellwiki/Xmonad/Frequently_asked_questions on
+-- 2009-06-30. Thanks.
+avoidMaster :: W.StackSet i l a s sd -> W.StackSet i l a s sd
+avoidMaster = W.modify' $ \c -> case c of
+ W.Stack t [] (r:rs) -> W.Stack t [r] rs
+ otherwise -> c
+
+-- Create my custom layout.
+--
+-- Only use horizontal (Mirror tiled) and fullscreen layouts.
+--
+-- The master pane is at the bottom of the screen (reflectVert). To make sure
+-- new windows don't spawn in the master pane avoidMaster (see below) is used.
+-- Borders are only drawn when the screen has more then one window
+-- (smartBorders).
+--
+-- Thanks to jrick in #xmonad on Freenode (2009-06-29 22:19) for telling me
+-- how to remove the vertical tiled layout.
+myLayoutHook = smartBorders $ reflectVert $ Mirror tiled ||| Full
+ where
+ -- Default tiling algorithm partitions the screen into two panes.
+ tiled = Tall nmaster delta ratio
+ -- The default number of windows in the master pane.
+ nmaster = 1
+ -- Default proportion of screen occupied by master pane.
+ ratio = 1/2
+ -- Percent of screen to increment by when resizing panes.
+ delta = 3/100
+
+-- Don't spawn new windows in the master pane (which is now at the bottom of
+-- the screen). Thanks to dschoepe, aavogt and especially vav in #xmonad on
+-- Freenode (2009-06-30 02:10f).
+--
+-- Also some applications are spawned on specific workspaces. Thanks to
+-- dschoepe and ivanm in #xmonad on Freenode (2009-07-12 14:50).
+myManageHook = composeAll
+ [ className =? "Iceweasel" --> doF (W.shift "2")
+ , className =? "Wireshark" --> doF (W.shift "3")
+ ] <+> doF avoidMaster