html-integration-point? ( element -- ? )

Vocabulary

html5

Inputs

element

an object

Outputs

?

an object

Definition

USING: accessors assocs combinators.short-circuit kernel
sequences ;

IN: html5

: html-integration-point? ( element -- ? )
    {
        [
            {
                [ namespace>> svg-namespace = ]
                [
                    name>>
                    { "foreignObject" "desc" "title" } member?
                ]
            } 1&&
        ]
        [
            {
                [ namespace>> mathml-namespace = ]
                [ name>> "annotation-xml" = ]
                [
                    attributes>> "encoding" of
                    [ ascii-downcase ~array~ member? ] [ f ] if*
                ]
            } 1&&
        ]
    } 1|| ;