import XMonad hiding (Tall)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.SetWMName
import XMonad.Layout.Circle
import XMonad.Layout.Magnifier
import XMonad.Layout.HintedTile
import XMonad.Layout.NoBorders

myLayout = avoidStruts
         $ smartBorders
         $ hintedTile Tall ||| hintedTile Wide  ||| Circle 
                           ||| magnifier Circle ||| Full
                           ||| noBorders Full

  -- hintedTile listens to application hints, so as not to break gVim.
  where
     hintedTile = HintedTile nmaster delta ratio TopLeft
     nmaster    = 1
     delta      = 3/100
     ratio      = 1/2

myManageHook = composeAll
    [ className =? "Gimp" --> doFloat ]

main = do
    xmonad $ defaultConfig
        { 
          -- Left WIN Key as modifying
          -- rather than Left ALT
          modMask = mod4Mask

        , manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig

        -- I used to use: avoidStruts $ layoutHook defaultConfig
        , layoutHook = myLayout

        -- This hack is necessary to make Java GUIs like NetBeans work.  See the FAQ.
        , logHook = setWMName "LG3D"
        }