Iniciar aplicaciones en espacios de trabajo específicos en xmonad

Sé cómo asociar aplicaciones específicas con espacios de trabajo específicos mediante manageHook y composeAll. Lo que estoy buscando es una forma de generar aplicaciones en espacios de trabajo específicos, es decir, una función con firma de tipo String -> workSpaceId -> X ()cuyo uso de ejemplo sería algo así como:

spawnToWorkspace "emacs" "2:code"

La forma más correcta (y moderna; no creo que SpawnOn estuviera en el XMonad lanzado en ese entonces, una gran cantidad de cosas buenas era solo en términos oscuros) para hacer esto es

import XMonad.Actions.SpawnOn

y luego usa la acción

spawnOn "2:code" "emacs"

Ver http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Actions-SpawnOn.html para más detalles.

De acuerdo, en realidad fue más fácil de lo que pensaba:

spawnToWorkspace :: String -> String -> X ()
spawnToWorkspace program workspace = do
                                      spawn program     
                                      windows $ W.greedyView workspace