table-caption-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: table-caption-token ( document obj -- document )
    obj tag?
    [ obj name>> table-context-elements member? ] [ f ] if
    obj end-tag?
    [ obj name>> { "table" "caption" } member? ] [ f ] if or [
        document "caption" generate-implied-end-tags
        document "caption" close-table-element
        obj "caption" end-tag-named?
        [ document ] [ document obj body-token ] if
    ] [ document obj ordinary-body-token ] if ;