foreign-token? ( document obj -- ? )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

?

an object

Definition

USING: accessors kernel math sequences ;

IN: html5

:: foreign-token? ( document obj -- ? )
    document open-elements>> ?last [
        :> current current html-element? not obj f = not and
        current mathml-text-integration-point? obj integer? and
        not and current mathml-text-integration-point? obj tag?
        [ obj name>> { "mglyph" "malignmark" } member? not ]
        [ f ] if and not and
        current html-integration-point? obj tag? obj integer? or
        and not and current namespace>> mathml-namespace =
        current name>> "annotation-xml" = and
        obj "svg" start-tag-named? and not and
    ] [ f ] if* ;