body-character ( document char -- )

Vocabulary

html5

Inputs

document	an object
char	an object

Outputs

None

Definition

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

IN: html5

:: body-character ( document char -- )
    document insertion-mode>> in-body-mode =
    document character-blocks-frameset? and
    [ document char update-frameset-for-character ] when {
        {
            [ document char character-needs-tree-routing? ]
            [ document char tree-insert drop ]
        }
        {
            [
                document
                [ { ~quotation~ ~quotation~ } 1&& ]
                current-element-matches?
            ]
            [ char document pending-table-characters>> push ]
        }
        {
            [
                document open-elements>> ?last
                [ name>> { "html" "head" } member? ] [ t ] if*
            ]
            [ document char tree-insert drop ]
        }
        [
            document reconstruct-for-character?
            [ document reconstruct-formatting ] when
            document char append-node
        ]
    } cond ;