element-in-scope? ( document name boundaries -- ? )

Vocabulary

html5

Inputs

document	an object
name	an object
boundaries	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: html5

:: element-in-scope? ( document name boundaries -- ? )
    document open-elements>> [
        dup html-element?
        [ name>> dup name = swap boundaries member? or ] [
            {
                [ mathml-text-integration-point? ]
                [ { ~quotation~ ~quotation~ } 1&& ]
                [ { ~quotation~ ~quotation~ } 1&& ]
            } 1|| "td" boundaries member? and
        ] if
    ] find-last nip
    [ { [ html-element? ] [ name>> name = ] } 1&& ] [ f ] if* ;