<柱間 (@hashirama:hashi.sbs)> spawnAndShift :: WorkspaceId -> String -> X () spawnAndShift ws app = do spawn app windows $ W.shift ws