start-head-element ( document element -- document )

Vocabulary

html5

Inputs

document	an object
element	an object

Outputs

document

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: start-head-element ( document element -- document )
    document element insert-element element name>> "noscript" =
    document scripting?>> not and
    [ document in-head-noscript-mode >>insertion-mode ] [
        element name>>
        { "title" "style" "script" "noframes" "noscript" }
        member? [
            document dup insertion-mode>>
            >>original-insertion-mode text-mode >>insertion-mode
        ] [ document ] if
    ] if ;