emit-tag ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors combinators io kernel prettyprint strings ;

IN: html5

: emit-tag ( document -- )
    "emit-tag: " write {
        [ tag>> [ name>> >string ] [ name<< ] bi ]
        [ push-attribute ]
        [ tag>> . ]
        [ dup tag>> tree-insert drop ]
        [ f >>tag drop ]
    } cleave ;