write-html ( tag -- ) - Factor Documentation

write-html ( tag -- )

Vocabulary
modern .html

Inputs

tag an object

Outputs
None

Definition

IN: modern.html

GENERIC: write-html ( tag -- )

Methods

USING: accessors kernel make modern.html ;

M: cdata write-html
[ open>> % ] [ value>> % ] [ close>> % ] tri ;

USING: accessors kernel make modern.html ;

M: comment write-html
[ open>> % ] [ payload>> % ] [ close>> % ] tri ;

USING: accessors kernel make modern.html sequences ;

M: doctype write-html
[ open>> % ] [
values>> [ >value ] map " " join
[ " " % % ] unless-empty
] [ close>> % ] tri ;

USING: accessors combinators make modern.html sequences ;

M: open-tag write-html
{
[ open>> % ]
[ name>> % ]
[ props>> write-props ]
[ close>> % ]
[ children>> [ write-html ] each ]
[ close-tag>> name>> "</" ">" surround % ]
} cleave ;

USING: accessors combinators make modern.html ;

M: processing-instruction write-html
{
[ open>> % ]
[ target>> % ]
[ props>> write-props ]
[ close>> % ]
} cleave ;

USING: accessors combinators make modern.html ;

M: self-close-tag write-html
{
[ open>> % ]
[ name>> % ]
[ props>> write-props ]
[ close>> % ]
} cleave ;

USING: modern.html sequences ;

M: sequence write-html [ write-html ] each ;

USING: make modern.html strings ;

M: string write-html % ;