prepare-formatting-start ( document element -- )

Vocabulary

html5

Inputs

document	an object
element	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: prepare-formatting-start ( document element -- )
    element name>> :> name name "a" = [
        document "a" formatting-index [
            document active-formatting-elements>> nth
            :> previous document <end-tag> "a" >>name
            adoption-agency
            previous document active-formatting-elements>>
            remove-node
            previous document open-elements>> remove-node
        ] when*
    ] when name non-reconstructing-elements member?
    [ document reconstruct-formatting ] unless name "nobr" =
    document "nobr" scope-boundaries element-in-scope? and [
        document <end-tag> "nobr" >>name adoption-agency
        document reconstruct-formatting
    ] when ;