walk-html ( seq/tag quot -- )

Vocabulary

modern.html

Inputs

seq/tag	an object
quot	an object

Outputs

None

Definition

IN: modern.html

GENERIC#: walk-html 1 ( seq/tag quot -- )

Methods

USING: combinators modern.html ;

M: comment walk-html ( obj -- ) call-effect ;


USING: combinators modern.html ;

M: doctype walk-html ( obj -- ) call-effect ;


USING: combinators modern.html ;

M: embedded-language walk-html ( obj -- ) call-effect ;


USING: accessors combinators kernel modern.html sequences ;

M: open-tag walk-html
    [ ( obj -- ) call-effect ] 2keep [ children>> ] dip
    [ walk-html ] curry each ;


USING: combinators modern.html ;

M: processing-instruction walk-html ( obj -- ) call-effect ;


USING: accessors combinators kernel modern.html sequences ;

M: self-close-tag walk-html
    [ ( obj -- ) call-effect ] 2keep [ children>> ] dip
    [ walk-html ] curry each ;


USING: kernel modern.html sequences ;

M: sequence walk-html [ walk-html ] curry each ;


USING: combinators modern.html strings ;

M: string walk-html ( obj -- ) call-effect ;