after-head-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators kernel ;

IN: html5

:: after-head-token ( document obj -- document )
    {
        { [ obj doctype? ] [ document ] }
        {
            [ obj head-start-tag? ]
            [ document obj after-head-head-token ]
        }
        {
            [ obj html-space? obj misc-node? or ]
            [ document obj append-node document ]
        }
        {
            [ obj "body" start-tag-named? ]
            [
                document obj insert-element
                document in-body-mode >>insertion-mode
                f >>frameset-ok?
            ]
        }
        [
            document "body" implied-element
            document in-body-mode >>insertion-mode
            t >>frameset-ok? obj tree-insert
        ]
    } cond ;