2009-01-31 21:44:17 -05:00
|
|
|
! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
|
|
|
|
|
! Slava Pestov.
|
2009-01-30 20:28:16 -05:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-02-05 22:17:03 -05:00
|
|
|
USING: kernel xml.data xml.writer xml.syntax urls.encoding ;
|
2009-01-30 20:28:16 -05:00
|
|
|
IN: html
|
|
|
|
|
|
2009-01-31 21:44:17 -05:00
|
|
|
: simple-page ( title head body -- xml )
|
2009-01-30 20:28:16 -05:00
|
|
|
<XML
|
|
|
|
|
<?xml version="1.0"?>
|
|
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
|
|
|
|
|
<head>
|
|
|
|
|
<title><-></title>
|
|
|
|
|
<->
|
|
|
|
|
</head>
|
|
|
|
|
<body><-></body>
|
|
|
|
|
</html>
|
2009-02-11 05:59:29 -05:00
|
|
|
XML> ;
|
2009-01-31 21:44:17 -05:00
|
|
|
|
|
|
|
|
: render-error ( message -- xml )
|
|
|
|
|
[XML <span class="error"><-></span> XML] ;
|
2009-01-30 20:28:16 -05:00
|
|
|
|
2009-01-31 21:44:17 -05:00
|
|
|
: simple-link ( xml url -- xml' )
|
2009-02-05 22:17:03 -05:00
|
|
|
url-encode swap [XML <a href=<->><-></a> XML] ;
|
