reconstruct-for-character? ( document -- ? )

Vocabulary

html5

Inputs

document

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: html5

:: reconstruct-for-character? ( document -- ? )
    document open-elements>> last :> current current
    html-element? [
        current name>> {
            "title"
            "textarea"
            "style"
            "script"
            "xmp"
            "iframe"
            "noframes"
            "noembed"
            "plaintext"
        } member? not current document scripted-noscript?
        not and
    ] [
        current {
            [ mathml-text-integration-point? ]
            [ html-integration-point? ]
        } 1||
    ] if ;