a-attrs ( tag -- )

Vocabulary

furnace.chloe-tags

Inputs

tag

an object

Outputs

None

Definition

USING: assocs html.templates.chloe.compiler kernel present ;

IN: furnace.chloe-tags

: a-attrs ( tag -- )
    [ non-chloe-attrs ] [ compile-link-attrs ] [ compile-a-url ]
    tri [ present swap "href" swap [ set-at ] keep ] [code] ;