asides

Vocabulary

furnace.asides

Definition

USING: furnace.cache ;

IN: furnace.asides

TUPLE: asides < server-state-manager ;

Methods

USING: furnace.asides generic http.server kernel ;

M: asides call-responder*
    [ init-asides ]
    [ M\ asides call-responder* (call-next-method) ] bi ;


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.asides furnace.utilities kernel namespaces ;

M: asides modify-form
    drop aside-id get aside-id-key hidden-form-field ;


USING: assocs furnace.asides furnace.utilities hashtables kernel
namespaces ;

M: asides modify-query
    drop aside-id get
    [ aside-id-key associate assoc-union ] when* ;