body-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: body-token ( document obj -- document )
    document table-context [
        document select-in-scope?
        [ document obj select-in-table-token ]
        [ document obj table-token ] if
    ] [
        document template-insertion-modes>> empty? not obj tag? 
        [
            obj name>> {
                "caption"
                "col"
                "colgroup"
                "tbody"
                "td"
                "tfoot"
                "th"
                "thead"
                "tr"
            } member?
        ] [ f ] if and
        [ document ] [ document obj ordinary-body-token ] if
    ] if ;