start-body-element ( document element -- )

Vocabulary

html5

Inputs

document	an object
element	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: start-body-element ( document element -- )
    element name>> "image" = [ element "img" >>name drop ] when
    element name>> :> name document element
    update-frameset-for-element name "button" =
    document "button" scope-boundaries element-in-scope? and [
        document "" generate-implied-end-tags
        document <end-tag> "button" >>name close-element
    ] when name "table" = document quirks-mode?>> not and
    [ document close-paragraph ] when
    name block-elements member? name heading-elements member? or
    name { "pre" "listing" "hr" "xmp" "plaintext" } member? or
    [ document close-paragraph ] when name
    { "li" "dd" "dt" } member?
    [ document name close-list-item document close-paragraph ]
    when name heading-elements member? [
        document open-elements>> ?last
        [ name>> heading-elements member? ] [ f ] if*
        [ document open-elements>> pop drop ] when
    ] when name { "option" "optgroup" } member?
    [ document name prepare-option ] when name "hr" =
    document select-in-scope? and
    [ document "" generate-implied-end-tags ] when name
    { "rb" "rp" "rt" "rtc" } member?
    [ document "" generate-implied-end-tags ] when
    document element prepare-formatting-start name
    { "svg" "math" } member? [
        document element name "svg" =
        [ svg-namespace ] [ mathml-namespace ] if
        insert-foreign-element
    ] [ document element insert-element ] if
    name formatting-elements member?
    [ document element push-formatting ] when name
    { "pre" "listing" "textarea" } member?
    [ document t >>skip-leading-newline? drop ] when ;