157 lines
4.2 KiB
Factor
157 lines
4.2 KiB
Factor
! cont-html v0.6
|
|
!
|
|
! Copyright (C) 2004 Chris Double.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: io kernel namespaces prettyprint quotations
|
|
sequences strings words ;
|
|
|
|
IN: html.elements
|
|
|
|
! These words are used to provide a means of writing
|
|
! formatted HTML to standard output with a familiar 'html' look
|
|
! and feel in the code.
|
|
!
|
|
! HTML tags can be used in a number of different ways. The highest
|
|
! level involves a similar syntax to HTML:
|
|
!
|
|
! <p> "someoutput" write </p>
|
|
!
|
|
! <p> will output the opening tag and </p> will output the closing
|
|
! tag with no attributes.
|
|
!
|
|
! <p "red" =class p> "someoutput" write </p>
|
|
!
|
|
! This time the opening tag does not have the '>'. It pushes
|
|
! a namespace on the stack to hold the attributes and values.
|
|
! Any attribute words used will store the attribute and values
|
|
! in that namespace. Before the attribute word should come the
|
|
! value of that attribute.
|
|
! The finishing word will print out the operning tag including
|
|
! attributes.
|
|
! Any writes after this will appear after the opening tag.
|
|
!
|
|
! Values for attributes can be used directly without any stack
|
|
! operations:
|
|
!
|
|
! (url -- )
|
|
! <a =href a> "Click me" write </a>
|
|
!
|
|
! (url -- )
|
|
! <a "http://" swap append =href a> "click" write </a>
|
|
!
|
|
! (url -- )
|
|
! <a [ "http://" % % ] "" make =href a> "click" write </a>
|
|
!
|
|
! Tags that have no 'closing' equivalent have a trailing tag/> form:
|
|
!
|
|
! <input "text" =type "name" =name "20" =size input/>
|
|
|
|
: elements-vocab ( -- vocab-name ) "html.elements" ;
|
|
|
|
SYMBOL: html
|
|
|
|
: write-html ( str -- )
|
|
H{ { html t } } format ;
|
|
|
|
: print-html ( str -- )
|
|
write-html "\n" write-html ;
|
|
|
|
: html-word ( name def -- )
|
|
#! Define 'word creating' word to allow
|
|
#! dynamically creating words.
|
|
>r elements-vocab create r> define-compound ;
|
|
|
|
: <foo> "<" swap ">" 3append ;
|
|
|
|
: def-for-html-word-<foo> ( name -- )
|
|
#! Return the name and code for the <foo> patterned
|
|
#! word.
|
|
dup <foo> swap [ <foo> write-html ] curry html-word ;
|
|
|
|
: <foo "<" swap append ;
|
|
|
|
: def-for-html-word-<foo ( name -- )
|
|
#! Return the name and code for the <foo patterned
|
|
#! word.
|
|
<foo dup [ write-html ] curry html-word ;
|
|
|
|
: foo> ">" append ;
|
|
|
|
: def-for-html-word-foo> ( name -- )
|
|
#! Return the name and code for the foo> patterned
|
|
#! word.
|
|
foo> [ ">" write-html ] html-word ;
|
|
|
|
: </foo> [ "</" % % ">" % ] "" make ;
|
|
|
|
: def-for-html-word-</foo> ( name -- )
|
|
#! Return the name and code for the </foo> patterned
|
|
#! word.
|
|
</foo> dup [ write-html ] curry html-word ;
|
|
|
|
: <foo/> [ "<" % % "/>" % ] "" make ;
|
|
|
|
: def-for-html-word-<foo/> ( name -- )
|
|
#! Return the name and code for the <foo/> patterned
|
|
#! word.
|
|
dup <foo/> swap [ <foo/> write-html ] curry html-word ;
|
|
|
|
: foo/> "/>" append ;
|
|
|
|
: def-for-html-word-foo/> ( name -- )
|
|
#! Return the name and code for the foo/> patterned
|
|
#! word.
|
|
foo/> [ "/>" write-html ] html-word ;
|
|
|
|
: define-closed-html-word ( name -- )
|
|
#! Given an HTML tag name, define the words for
|
|
#! that closable HTML tag.
|
|
dup def-for-html-word-<foo>
|
|
dup def-for-html-word-<foo
|
|
dup def-for-html-word-foo>
|
|
def-for-html-word-</foo> ;
|
|
|
|
: define-open-html-word ( name -- )
|
|
#! Given an HTML tag name, define the words for
|
|
#! that open HTML tag.
|
|
dup def-for-html-word-<foo/>
|
|
dup def-for-html-word-<foo
|
|
def-for-html-word-foo/> ;
|
|
|
|
: write-attr ( value name -- )
|
|
" " write-html
|
|
write-html
|
|
"='" write-html
|
|
write
|
|
"'" write-html ;
|
|
|
|
: define-attribute-word ( name -- )
|
|
dup "=" swap append swap
|
|
[ write-attr ] curry html-word ;
|
|
|
|
! Define some closed HTML tags
|
|
[
|
|
"h1" "h2" "h3" "h4" "h5" "h6" "h7" "h8" "h9"
|
|
"ol" "li" "form" "a" "p" "html" "head" "body" "title"
|
|
"b" "i" "ul" "table" "tbody" "tr" "td" "th" "pre" "textarea"
|
|
"script" "div" "span" "select" "option" "style"
|
|
] [ define-closed-html-word ] each
|
|
|
|
! Define some open HTML tags
|
|
[
|
|
"input"
|
|
"br"
|
|
"link"
|
|
"img"
|
|
] [ define-open-html-word ] each
|
|
|
|
! Define some attributes
|
|
[
|
|
"method" "action" "type" "value" "name"
|
|
"size" "href" "class" "border" "rows" "cols"
|
|
"id" "onclick" "style" "valign" "accesskey"
|
|
"src" "language" "colspan" "onchange" "rel"
|
|
"width" "selected" "onsubmit" "xmlns" "lang" "xml:lang"
|
|
] [ define-attribute-word ] each
|