nest-form ( name quot -- )
Furnace framework » Furnace presentation layer » HTML forms » HTML form values

Prev:

with-each-object ( name quot -- )

Vocabulary
html.forms

Inputs

name	a string
quot	a quotation

Outputs
None

Word description
Runs the quotation in a new dynamic scope with the form variable rebound to a new form, which is subsequently stored in the value named name.

Examples
The webapps.pastebin uses a form to display pastes; inside this form it nests another form for creating annotations, and fills in some default values for new annotations:

<page-action> [ validate-integer-id "id" value paste from-object "id" value "new-annotation" [ "parent" set-value mode-names "modes" set-value "factor" "mode" set-value ] nest-form ] >>init

Definition

USING: kernel namespaces ;

IN: html.forms

: nest-form ( name quot -- )
    swap [ [ <form> form set call form get ] with-scope ] dip
    set-value ; inline