   style = if color then " style=\"color: #{color}\"" else ''
   "<span#{style}>#{string}</span>"
 
+themize = (label, string) ->
+  colorize theme[label], string
+
 # TODO: figure out comments
 # typeComments = (ast) ->
 #   macro '#', ast, (node) ->

      return compileTopLevel source, moduleName, request
    else
      {js} = compileCtxIrToJs ctx, ir
  (finalizeTypes ctx, ast)
  replaceOrAddToMap compiledModules, moduleName,
    declared: (subtractContexts ctx, (injectedContext toInject)) # must recompute because ctx is mutated

  "<code>#{collapse toHtml type}</code>"

prettyPrint = (type) ->
  prettyPrintWith printTypeToHtml, type

plainPrettyPrint = (type) ->
  prettyPrintWith printType, type
