<->

! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg. ! See http://factorcode.org/license.txt for BSD license. USING: io kernel xml.data xml.writer io.streams.string xml.literals io.styles ; IN: html SYMBOL: html : write-html ( str -- ) H{ { html t } } format ; : print-html ( str -- ) write-html "\n" write-html ; : xhtml-preamble ( -- ) "" write-html "" write-html ; : simple-page ( title head-quot body-quot -- ) [ with-string-writer ] bi@ <-> <-> <-> XML> write-xml ; inline : render-error ( message -- ) [XML <-> XML] write-xml ;