factor/basis/html/html.factor

! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
! Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel xml.data xml.writer xml.syntax urls.encoding ;
IN: html

: simple-page ( title head body -- xml )
    <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>
    XML> ;

: render-error ( message -- xml )
    [XML <span class="error"><-></span> XML] ;

: simple-link ( xml url -- xml' )
    url-encode swap [XML <a href=<->><-></a> XML] ;

: simple-image ( url -- xml )
    url-encode [XML <img src=<-> /> XML] ;
Rewrite html.streams to use xml.literals 2009-01-31 21:44:17 -05:00			`! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,`
			`! Slava Pestov.`
Fixing some things I broke 2009-01-30 20:28:16 -05:00			`! See http://factorcode.org/license.txt for BSD license.`
Moving XML vocabularies around 2009-02-05 22:17:03 -05:00			`USING: kernel xml.data xml.writer xml.syntax urls.encoding ;`
Fixing some things I broke 2009-01-30 20:28:16 -05:00			`IN: html`

Rewrite html.streams to use xml.literals 2009-01-31 21:44:17 -05:00			`: simple-page ( title head body -- xml )`
Fixing some things I broke 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>`
Document html:simple-page 2009-02-11 05:59:29 -05:00			`XML> ;`
Rewrite html.streams to use xml.literals 2009-01-31 21:44:17 -05:00
			`: render-error ( message -- xml )`
			`[XML <span class="error"><-></span> XML] ;`
Fixing some things I broke 2009-01-30 20:28:16 -05:00
Rewrite html.streams to use xml.literals 2009-01-31 21:44:17 -05:00			`: simple-link ( xml url -- xml' )`
Moving XML vocabularies around 2009-02-05 22:17:03 -05:00			`url-encode swap [XML <a href=<->><-></a> XML] ;`
html.streams: the 'image' character stream style now generates an <img> HTML element NOTE: You must manually copy your image resources to your web server such that the images are available from the "/images" root URL. For example, if your resource is "vocab:definitions/icons/normal-word.tiff" then it should be copied such that it is available via the following URL: "http://myserver.org/images/basis/definitions/icon/normal-word.tiff" (the original path is first normalized and then the Factor root prefix is stripped away). NOTE: Factor's definition-icons are in TIFF format, which appears to be supported out-of-the-box by very few web browsers (namely Safari). Perhaps we should switch from TIFF to GIF or PNG? Are these vocabs ready to be used? 2009-09-22 09:06:56 -04:00
			`: simple-image ( url -- xml )`
			`url-encode [XML <img src=<-> /> XML] ;`