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: accessors kernel xml.data xml.writer xml.syntax
   5 urls.encoding ;
   6 IN: html
   7
   8 TUPLE: empty-prolog < prolog ;
   9 M: empty-prolog write-xml drop ;
  10 : <empty-prolog> ( -- prolog ) \ empty-prolog new ;
  11
  12 : simple-page ( title head body -- xml )
  13     <XML
  14         <!DOCTYPE html>
  15         <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  16             <head>
  17                 <title><-></title>
  18                 <->
  19             </head>
  20             <body><-></body>
  21         </html>
  22     XML> <empty-prolog> >>prolog ;
  23
  24 : render-error ( message -- xml )
  25     [XML <span class="error"><-></span> XML] ;
  26
  27 : simple-link ( xml url -- xml' )
  28     url-encode swap [XML <a href=<->><-></a> XML] ;
  29
  30 : simple-image ( url -- xml )
  31     url-encode [XML <img src=<-> /> XML] ;