start-template ( document element -- document )

Vocabulary

html5

Inputs

document	an object
element	an object

Outputs

document

an object

Definition

USING: accessors kernel math sequences ;

IN: html5

:: start-template ( document element -- document )
    element V{ } clone >>template-contents drop
    document insertion-mode>> after-head-mode = [
        document head-element-pointer>> document open-elements>>
        push document element insert-element
        document open-elements>> length 2 -
        document open-elements>> remove-nth! drop
    ] [ document element insert-element ] if
    in-template-mode document template-insertion-modes>> push
    document in-template-mode >>insertion-mode f >>frameset-ok?
    ;