before-html-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators ;

IN: html5

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