(html-tree-insert) ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators kernel ;

IN: html5

:: (html-tree-insert) ( document obj -- document )
    document obj ignored-early-end-tag?
    [ document ] [
        document insertion-mode>> {
            { initial-mode [ document obj initial-token ] }
            {
                before-html-mode
                [ document obj before-html-token ]
            }
            {
                before-head-mode
                [ document obj before-head-token ]
            }
            { in-head-mode [ document obj in-head-token ] }
            {
                in-head-noscript-mode
                [ document obj in-head-noscript-token ]
            }
            {
                after-head-mode
                [ document obj after-head-token ]
            }
            {
                after-body-mode
                [ document obj after-body-token ]
            }
            {
                after-after-body-mode
                [ document obj after-after-body-token ]
            }
            [ drop document obj body-token ]
        } case
    ] if ;