Current xmonad config

xmonad.hs

import XMonad
import XMonad.Actions.CopyWindow
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
--import XMonad.Hooks.ICCCMFocus
import XMonad.Hooks.SetWMName
import XMonad.Layout.NoBorders
import XMonad.Layout.Spiral
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
import Data.List
import Control.Applicative ((<$>))
import qualified XMonad.StackSet as W   -- Managehook rules, for unfloat


myManageHook = composeAll
    [ className =? "Gimp"      --> doFloat
    , className =? "Vncviewer" --> doFloat
    , className =? "Speedcrunch" --> doFloat
    , className =? "Do"  --> doIgnore
    , className =? "Mysql-workbench-bin" --> unfloat
    , className =? "xfce4-panel" --> doFloat
    , className =? "sun-awt-X11-XFramePeer" --> doIgnore
    , className =? "Pidgin" --> doShift "4:comm"
    , className =? "Clementine" --> doShift "5:music"
    , ("Pandora" `isPrefixOf`) <$> title --> doShift "5:music"
    , className =? "Gvim" --> doShift "1:dev"
    -- , className =? "net-minecraft-LauncherFrame" --> doIgnore
    ]
    where unfloat = ask >>= doF . W.sink


myLayoutHook = avoidStruts ( smartBorders ( Tall 1 (3/100) (1/2) ||| Full ||| spiral (6/7)))

main = do
    xmproc <- spawnPipe "xmobar"
    xmonad $ defaultConfig
        { workspaces = ["1:dev","2:web","3:data","4:comm","5:music","6:tmp","7","8","9","0","-","="]
        , manageHook    = manageDocks <+> myManageHook <+> manageHook defaultConfig
        , terminal="Terminal"
        , logHook       = dynamicLogWithPP xmobarPP
            { ppOutput = hPutStrLn xmproc
            , ppTitle  = xmobarColor "green" "" . shorten 100
            }
        , layoutHook    = myLayoutHook
        , handleEventHook = ewmhDesktopsEventHook
        , startupHook   = ewmhDesktopsStartup <+> setWMName "LG3D"
        , modMask       = mod4Mask     -- Rebind Mod to the Windows key
          -- get output to xmobar with hPutStrLn xmproc
          -- put first 50 characters of the windows title to the title area
        } `additionalKeys`
        [ ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
        , ((0, xK_Print), spawn "scrot")
        , ((controlMask, xK_space), spawn "kupfer")
        , ((mod4Mask .|. shiftMask, xK_a), windows copyToAll)
        --, ((modMask .|. shiftMask, xK_q), spawn "xfce4-session-logout") -- Logout of xfce on close also
        ]