append-node ( document obj -- )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel math sequences
strings ;

IN: html5

:: append-node ( document obj -- )
    obj dup integer? [ 1string ] when
    :> node document open-elements>> ?last [ ] [ document ] if*
    :> parent document fostering-parent?>> document [
        {
            [ html-element? ]
            [ name>> table-text-elements member? ]
        } 1&&
    ] current-element-matches? and
    [ document node parent foster-node ]
    [ node parent attach-node ] if ;