(compile-tag) ( tag -- )

Vocabulary

html.templates.chloe.compiler

Inputs

tag

an object

Outputs

None

Definition

USING: ascii kernel sequences xml.writer ;

IN: html.templates.chloe.compiler

: (compile-tag) ( tag -- )
    dup name>string >lower self-closing-tags member?
    [ compile-self-closing-tag ] [
        [ compile-start-tag ] [ compile-children ]
        [ compile-end-tag ] tri
    ] if ;