(compile-form-attrs) ( method action -- )

Vocabulary

furnace.chloe-tags

Inputs

method	an object
action	an object

Outputs

None

Definition

USING: assocs furnace.utilities html.templates.chloe.compiler
kernel ;

IN: furnace.chloe-tags

: (compile-form-attrs) ( method action -- )
    [ compile-attr [ "method" pick set-at ] [code] ] [
        compile-attr
        [ resolve-base-path "action" pick set-at ] [code]
    ] bi* ;