compile-component-attrs ( tag class -- )

Vocabulary

html.templates.chloe.components

Inputs

tag	an object
class	an object

Outputs

None

Definition

USING: accessors assocs classes.tuple
html.templates.chloe.compiler kernel sequences ;

IN: html.templates.chloe.components

: compile-component-attrs ( tag class -- )
    [ attrs>> [ main>> "name" = ] reject-keys ] dip [
        all-slots swap [ [ name>> ] ] dip
        [ at compile-attr ] curry compose each
    ] [ [ boa ] [code-with] ] bi ;