after-head-mode

Vocabulary

html5

Definition

IN: html5

SINGLETON: after-head-mode

Methods

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

M: after-head-mode tree-insert*
    drop {
        { [ dup "\t\n\f\r " member? ] [ over tree>> push ] }
        { [ dup comment? ] [ over tree>> push ] }
        { [ dup doctype? ] [ drop ] }
        {
            [ dup { [ tag? ] [ name>> "html" = ] } 1&& ]
            [
                "handle html in-body-mode here" throw
                unimplemented*
            ]
        }
        {
            [ dup { [ tag? ] [ name>> "html" = ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> "body" = ] } 1&& ]
            [
                over tree>> push f >>frameset-ok?
                in-body-mode >>insertion-mode
            ]
        }
        {
            [ dup { [ tag? ] [ name>> "frameset" = ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> ~array~ member? ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ end-tag? ] [ name>> "template" = ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ ~array~ 1&& ] [ ~array~ 1&& ] } 1|| ]
            [ "omg revisit this" throw unimplemented* ]
        }
        [
            break <tag> "body" >>name pick tree>> push
            in-body-mode >>insertion-mode tree-insert
        ]
    } cond ;