open-tag

Vocabulary

modern.html

Definition

IN: modern.html

TUPLE: open-tag < tag close-tag ;

Methods

USING: accessors combinators kernel modern.html sequences ;

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


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 modern.html ;

M: open-tag write-string children>> write-string ;


USING: combinators kernel modern.html ;

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