foreign-breakout? ( obj -- ? )

Vocabulary

html5

Inputs

obj

an object

Outputs

?

an object

Definition

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

IN: html5

: foreign-breakout? ( obj -- ? )
    {
        [
            {
                [ tag? ]
                [ name>> foreign-breakout-elements member? ]
            } 1&&
        ]
        [
            {
                [ tag? ]
                [ name>> "font" = ]
                [
                    attributes>> keys
                    { "color" "face" "size" } intersects?
                ]
            } 1&&
        ]
        [ { [ end-tag? ] [ name>> { "br" "p" } member? ] } 1&& ]
    } 1|| ;