compile-attrs ( assoc -- )

Vocabulary

html.templates.chloe.compiler

Inputs

assoc

an object

Outputs

None

Definition

USING: assocs kernel splitting xml.entities xml.writer ;

IN: html.templates.chloe.compiler

: compile-attrs ( assoc -- )
    [
        " " [write] swap name>string [write] "=\"" [write]
        "@" ?head
        [ expand-attr ] [ escape-quoted-string [write] ] if
        "\"" [write]
    ] assoc-each ;