-- Hooks --
myManageHook = composeAll
    [
        className=? "Pidgin"                    --> doShift "0_im"
      , className=? "Uzbl-core"                 --> doShift "1_web"
      , className=? "Navigator"                 --> doShift "0_web"
      , className=? "Firefox"                   --> doShift "0_web"
      , className=? "Emacs"                     --> doShift "0_emacs"
      , className=? "Xmessage"                  --> doFloat
      , className=? "Synapse"                   --> doIgnore
      , isDialog                                --> placeHook simpleSmart <+> doFloat
    ]
      -- <+> positionStoreManageHook
      <+> manageDocks


myLayoutHook = avoidStruts $
               onWorkspace "0_im" (reflectHoriz . withIM (1%10) (Role "buddy_list") $ Grid) $
               onWorkspace "0_emacs" tiled $
               smartBorders (Mirror tiled)
               ||| tabs
               ||| Grid
               ||| smartBorders Full
               ||| smartBorders tiled

    where
      tiled = ResizableTall nmaster delta ratio []
      -- The default number of windows in the master pane
      nmaster = 1
      -- Default proportion of screen occupied by master pane
      ratio   = toRational (2/(1+sqrt(5)::Double)) -- golden
      -- Percent of screen to increment by when resizing panes
      delta   = 0.03
      -- tabbed layout
      tabs = tabbed shrinkText myTabTheme
      -- magnification in grid
      magnify = magnifier (13%10)