adjust-foreign-element ( element namespace -- element )

Vocabulary

html5

Inputs

element	an object
namespace	an object

Outputs

element

an object

Definition

USING: accessors arrays assocs kernel sequences ;

IN: html5

:: adjust-foreign-element ( element namespace -- element )
    namespace svg-namespace = [
        element dup name>> svg-tag-adjustments at
        [ >>name ] when* drop
    ] when element attributes>> [
        first2 swap namespace svg-namespace =
        [ dup svg-attribute-adjustments at [ nip ] when* ] when
        namespace mathml-namespace = over "definitionurl" = and
        [ drop "definitionURL" ] when
        adjust-foreign-attribute swap 2array
    ] map element swap >>attributes namespace >>namespace ;