self-close-tag

Vocabulary

modern.html

Definition

IN: modern.html

TUPLE: self-close-tag < tag ;

Methods

USING: accessors combinators kernel modern.html sequences ;

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


USING: accessors combinators make modern.html ;

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


USING: combinators kernel modern.html ;

M: self-close-tag xml-find-by
    2dup ( obj -- ? ) call-effect
    [ drop ] [ [ get-children ] dip xml-find-by ] if ; inline