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

Use fry in html

db4
Slava Pestov 2008-06-18 00:35:34 -05:00
parent dc3929f3db
commit c19d83e13f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/html/elements/elements.factor
View File

@ -5,7 +5,7 @@
USING: io kernel namespaces prettyprint quotations USING: io kernel namespaces prettyprint quotations
sequences strings words xml.entities compiler.units effects sequences strings words xml.entities compiler.units effects
urls math math.parser combinators present ; urls math math.parser combinators present fry ;
IN: html.elements IN: html.elements
@ -70,7 +70,7 @@ SYMBOL: html
: def-for-html-word-<foo> ( name -- ) : def-for-html-word-<foo> ( name -- )
#! Return the name and code for the <foo> patterned #! Return the name and code for the <foo> patterned
#! word. #! word.
dup <foo> swap [ <foo> write-html ] curry dup <foo> swap '[ , <foo> write-html ]
(( -- )) html-word ; (( -- )) html-word ;
: <foo ( str -- <str ) "<" prepend ; : <foo ( str -- <str ) "<" prepend ;
@ -78,7 +78,7 @@ SYMBOL: html
: def-for-html-word-<foo ( name -- ) : def-for-html-word-<foo ( name -- )
#! Return the name and code for the <foo patterned #! Return the name and code for the <foo patterned
#! word. #! word.
<foo dup [ write-html ] curry <foo dup '[ , write-html ]
(( -- )) html-word ; (( -- )) html-word ;
: foo> ( str -- foo> ) ">" append ; : foo> ( str -- foo> ) ">" append ;
@ -93,14 +93,14 @@ SYMBOL: html
: def-for-html-word-</foo> ( name -- ) : def-for-html-word-</foo> ( name -- )
#! Return the name and code for the </foo> patterned #! Return the name and code for the </foo> patterned
#! word. #! word.
</foo> dup [ write-html ] curry (( -- )) html-word ; </foo> dup '[ , write-html ] (( -- )) html-word ;
: <foo/> ( str -- <str/> ) "<" swap "/>" 3append ; : <foo/> ( str -- <str/> ) "<" swap "/>" 3append ;
: def-for-html-word-<foo/> ( name -- ) : def-for-html-word-<foo/> ( name -- )
#! Return the name and code for the <foo/> patterned #! Return the name and code for the <foo/> patterned
#! word. #! word.
dup <foo/> swap [ <foo/> write-html ] curry dup <foo/> swap '[ , <foo/> write-html ]
(( -- )) html-word ; (( -- )) html-word ;
: foo/> ( str -- str/> ) "/>" append ; : foo/> ( str -- str/> ) "/>" append ;
@ -134,7 +134,7 @@ SYMBOL: html
: define-attribute-word ( name -- ) : define-attribute-word ( name -- )
dup "=" prepend swap dup "=" prepend swap
[ write-attr ] curry (( string -- )) html-word ; '[ , write-attr ] (( string -- )) html-word ;
! Define some closed HTML tags ! Define some closed HTML tags
[ [