in-body-mode

Vocabulary

html5

Definition

IN: html5

SINGLETON: in-body-mode

Methods

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

M: in-body-mode tree-insert*
    drop {
        { [ dup 0 = ] [ drop ] }
        { [ dup "\t\n\f\r " member? ] [ over tree>> push ] }
        { [ dup comment? ] [ over tree>> push ] }
        { [ dup doctype? ] [ drop ] }
        {
            [ dup { [ tag? ] [ name>> "html" = ] } 1&& ]
            [ drop ]
        }
        {
            [ dup { [ ~array~ 1&& ] [ ~array~ 1&& ] } 1|| ]
            [ unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> "body" = ] } 1&& ]
            [ drop unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> "frameset" = ] } 1&& ]
            [ drop unimplemented* ]
        }
        {
            [ dup { [ end-tag? ] [ name>> "body" = ] } 1&& ]
            [
                "body" pick tree>> find-matching-tag
                unclip swap >>children swap >>end-tag
                over tree>> push
                after-body-mode >>insertion-mode
            ]
        }
        {
            [ dup { [ end-tag? ] [ name>> "html" = ] } 1&& ]
            [ drop unimplemented* ]
        }
        [ unimplemented* ]
    } cond ;