before-head-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators kernel sequences ;

IN: html5

:: before-head-token ( document obj -- document )
    {
        { [ obj html-space? ] [ document ] }
        {
            [ obj misc-node? ]
            [ document obj append-node document ]
        }
        {
            [ obj "head" start-tag-named? ]
            [
                document obj insert-element
                document obj >>head-element-pointer
                in-head-mode >>insertion-mode
            ]
        }
        [
            document "head" implied-element
            document dup open-elements>> last
            >>head-element-pointer in-head-mode >>insertion-mode
            obj tree-insert
        ]
    } cond ;