<->

! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg, ! Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors kernel xml.data xml.writer xml.syntax urls.encoding ; IN: html TUPLE: empty-prolog < prolog ; M: empty-prolog write-xml drop ; : ( -- prolog ) \ empty-prolog new ; : simple-page ( title head body -- xml ) XML-DOC[[ <-> <-> <-> ]] >>prolog ; : render-error ( message -- xml ) XML-CHUNK[[ <-> ]] ; : simple-link ( xml url -- xml' ) url-encode swap XML-CHUNK[[ ><-> ]] ; : simple-image ( url -- xml ) url-encode XML-CHUNK[[

/> ]] ;