before-html-mode

Vocabulary

html5

Definition

IN: html5

SINGLETON: before-html-mode

Methods

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

M: before-html-mode tree-insert*
    drop {
        { [ dup doctype? ] [ drop ] }
        { [ dup comment? ] [ over tree>> push ] }
        { [ dup "\t\n\f\r " member? ] [ drop ] }
        {
            [ dup { [ tag? ] [ name>> "html" = ] } 1&& ]
            [
                over tree>> push
                before-head-mode >>insertion-mode
            ]
        }
        {
            [
                dup
                { [ end-tag? ] [ name>> ~array~ member? not ] }
                1&&
            ]
            [ drop ]
        }
        [
            <tag> "html" >>name pick tree>> push
            before-head-mode >>insertion-mode tree-insert
        ]
    } cond ;