link-attr ( tag responder -- )
Furnace framework » Furnace extension points

Prev:	modify-redirect-query ( query responder -- query' )
Next:	modify-form ( responder -- xml/f )

Vocabulary
furnace.utilities

Inputs

tag	a tag
responder	a responder

Outputs
None

Generic word contract
Modifies an XHTML a tag.

Notes
This word is called by html.templates.chloe.

Examples
Conversation scope adds attributes to link tags.

Definition

IN: furnace.utilities

GENERIC: link-attr ( tag responder -- )

Methods

USING: combinators furnace.asides furnace.utilities
html.templates.chloe.syntax kernel namespaces urls ;

M: asides link-attr
    drop "aside" optional-attr {
        { "none" [ aside-id off ] }
        { "begin" [ url get begin-aside ] }
        { "current" [ ] }
        { f [ ] }
    } case ;


USING: furnace.utilities kernel ;

M: object link-attr 2drop ;