1 ! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
3 ! See https://factorcode.org/license.txt for BSD license.
4 USING: accessors kernel present urls urls.encoding xml.data
5 xml.writer xml.syntax ;
8 TUPLE: empty-prolog < prolog ;
9 M: empty-prolog write-xml drop ;
10 : <empty-prolog> ( -- prolog ) \ empty-prolog new ;
12 : simple-page ( title head body -- xml )
15 <html xmlns="https://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
22 XML> <empty-prolog> >>prolog ;
24 : render-error ( message -- xml )
25 [XML <span class="error"><-></span> XML] ;
27 : simple-link ( xml url -- xml' )
28 >url present swap [XML <a href=<->><-></a> XML] ;
30 : simple-image ( url -- xml )
31 >url present [XML <img src=<-> /> XML] ;