insert-element ( document element -- )

Vocabulary

html5

Inputs

document	an object
element	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: insert-element ( document element -- )
    document element append-node
    element namespace>> html-namespace =
    [ element name>> void-elements member? ]
    [ element self-closing?>> ] if [
        element document open-elements>> push
        element html-element? element name>>
        formatting-marker-elements member? and
        [ f document active-formatting-elements>> push ] when
    ] unless ;