xmonad config

xmonad.hs

import XMonad
import XMonad.Config.Gnome
import XMonad.Util.EZConfig
import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Layout.NoBorders
import XMonad.Layout.ThreeColumns
import XMonad.Layout.Reflect
import XMonad.Layout.MultiToggle

-- import XMonad.Layout.Spiral

main = xmonad $ gnomeConfig
       { layoutHook  = myLayoutHook
       }  `additionalKeysP` [
           -- Application shortcuts
           ("M-o", spawn "google-chrome"),
           ("M-S-o", spawn "gnome-open ~"),
           ("M-S-s", spawn "spotify" ),
           ("M-[", toggleWS),
           ("M-u", prevWS),
           ("M-i", nextWS),
           ("M-S-u", shiftToPrev),
           ("M-S-i", shiftToNext),
           ("M-S-,", sendMessage $ Toggle REFLECTX),
           ("M-S-.", sendMessage $ Toggle REFLECTY)

       ] `additionalKeys` [
           -- TODO: get my thinkpad media buttons working here
       ]


-- layoutHooks
myLayoutHook =  mkToggle (single REFLECTX) $ mkToggle (single REFLECTY) $
  avoidStruts (tiled ||| Mirror tiled ||| ThreeCol 1 (3/100) (1/2) ||| ThreeColMid 1 (3/100) (1/2) |||  Full)
    where
      tiled = reflectHoriz $ Tall 1 (3/100) (3/5)