in-head-mode

Vocabulary

html5

Definition

IN: html5

SINGLETON: in-head-mode

Methods

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

M: in-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>> ~array~ member? ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> "meta" = ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> "title" = ] } 1&& ]
            [ "insert title node" throw unimplemented* ]
        }
        {
            [ dup { [ ~array~ 1&& ] [ ~array~ 1&& ] } 1|| ]
            [ unimplemented* ]
        }
        {
            [
                dup {
                    [ tag? ]
                    [ name>> "noscript" = ]
                    [ scripting?>> not ]
                } 1&&
            ]
            [
                unimplemented* over tree>> push
                in-head-noscript-mode >>insertion-mode
            ]
        }
        {
            [ dup { [ tag? ] [ name>> "script" = ] } 1&& ]
            [ unimplemented* text-mode >>insertion-mode ]
        }
        {
            [ dup { [ end-tag? ] [ name>> "head" = ] } 1&& ]
            [
                over tree>> last end-tag<<
                after-head-mode >>insertion-mode
            ]
        }
        {
            [
                dup
                { [ end-tag? ] [ name>> ~array~ member? ] } 1&&
            ]
            [ unimplemented* ]
        }
        {
            [ dup { [ tag? ] [ name>> "template" = ] } 1&& ]
            [ unimplemented* in-template-mode >>insertion-mode ]
        }
        {
            [ dup { [ end-tag? ] [ name>> "template" = ] } 1&& ]
            [ unimplemented* ]
        }
        {
            [ dup { [ ~array~ 1&& ] [ end-tag? ] } 1|| ]
            [ drop "ignore here" throw ]
        }
        [
            over tree>> pop swap >>end-tag
            after-head-mode >>insertion-mode "omg" throw
        ]
    } cond ;