Is there a simple way to sink a window through manageHook? XMonad.ManageHook has a doFloat, but no corresponding doSink.