initial-mode

Vocabulary

html5

Definition

IN: html5

SINGLETON: initial-mode

Methods

USING: accessors combinators html5 kernel sequences ;

M: initial-mode tree-insert*
    drop {
        { [ dup "\t\n\f\r " member? ] [ drop ] }
        {
            [ dup doctype? ]
            [ >>tree-doctype before-html-mode >>insertion-mode ]
        }
        { [ dup comment? ] [ over tree>> push ] }
        { [ dup tag? ] [ over tree>> push ] }
        {
            [ dup end-tag? ]
            [
                dup name>> pick tree>> find-matching-tag
                unclip swap >>children swap >>end-tag
                over tree>> push
            ]
        }
        [
            over iframe-srcdoc?>> [
                over parser-cannot-change-mode-flag>>
                [ [ t >>quirks-mode? ] dip ] unless
            ] [ "must be iframe-srcdoc here" throw ] if
            before-html-mode >>insertion-mode tree-insert
        ]
    } cond ;