basis/html/html.factor

   1 ! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
   2 ! Slava Pestov.
   3 ! See http://factorcode.org/license.txt for BSD license.
   4 USING: kernel xml.data xml.writer xml.syntax urls.encoding ;
   5 IN: html
   6
   7 : simple-page ( title head body -- xml )
   8     <XML
   9         <?xml version="1.0"?>
  10         <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
  11         <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  12             <head>
  13                 <title><-></title>
  14                 <->
  15             </head>
  16             <body><-></body>
  17         </html>
  18     XML> ;
  19
  20 : render-error ( message -- xml )
  21     [XML <span class="error"><-></span> XML] ;
  22
  23 : simple-link ( xml url -- xml' )
  24     url-encode swap [XML <a href=<->><-></a> XML] ;
  25
  26 : simple-image ( url -- xml )
  27     url-encode [XML <img src=<-> /> XML] ;