import qualified XMonad.StackSet as W
myManageHook :: Query (Data.Monoid.Endo WindowSet)
myManageHook = composeAll
[ className =? "Emacs" --> doF W.swapMaster
]
...
, manageHook = myManageHook <+> manageHook desktopConfig
...