<->

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

/> XML] ;