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=? "Gimp"                      --> doNewWS "gimp"
      , className=? "Xmessage"                  --> doFloat
      , className=? "Synapse"                   --> doIgnore
      , isDialog                                --> placeHook simpleSmart <+> doFloat
      ]
    <+> manageDocks
    <+> namedScratchpadManageHook myScratchPads
    where
    doNewWS tg = (liftX $ addUniqueHiddenWS tg) >> doShift tg
    addUniqueHiddenWS tg = withWindowSet $ s --> if null (filter ( (== tg) . W.tag) (W.workspaces s)) then addHiddenWorkspace tg else return()
    -- <+> positionStoreManageHook