steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/html/html.factor

32 lines
898 B
Factor
Raw Normal View History

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.
chloe/html: switch to HTML5 templates Since XHTML is dead, and HTML5 isn't, switch to HTML5 templates for Chloe and other key parts of our HTML subsystems. As part of this, I went through and added DOCTYPE declarations to some of our examples as well.
2016-03-11 11:16:18 -05:00
USING: accessors kernel xml.data xml.writer xml.syntax
urls.encoding ;
Fixing some things I broke
2009-01-30 20:28:16 -05:00
IN: html
chloe/html: switch to HTML5 templates Since XHTML is dead, and HTML5 isn't, switch to HTML5 templates for Chloe and other key parts of our HTML subsystems. As part of this, I went through and added DOCTYPE declarations to some of our examples as well.
2016-03-11 11:16:18 -05:00
TUPLE: empty-prolog < prolog ;
M: empty-prolog write-xml drop ;
: <empty-prolog> ( -- prolog ) \ empty-prolog new ;
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
chloe/html: switch to HTML5 templates Since XHTML is dead, and HTML5 isn't, switch to HTML5 templates for Chloe and other key parts of our HTML subsystems. As part of this, I went through and added DOCTYPE declarations to some of our examples as well.
2016-03-11 11:16:18 -05:00
<!DOCTYPE html>
Fixing some things I broke
2009-01-30 20:28:16 -05:00
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title><-></title>
<->
</head>
<body><-></body>
</html>
chloe/html: switch to HTML5 templates Since XHTML is dead, and HTML5 isn't, switch to HTML5 templates for Chloe and other key parts of our HTML subsystems. As part of this, I went through and added DOCTYPE declarations to some of our examples as well.
2016-03-11 11:16:18 -05:00
XML> <empty-prolog> >>prolog ;
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 )
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
url-encode [XML <img src=<-> /> XML] ;