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 % ;