render-options ( value choice -- xml )

Vocabulary

html.components

Inputs

value	an object
choice	an object

Outputs

xml

an object

Definition

USING: accessors arrays html.forms kernel sequences ;

IN: html.components

: render-options ( value choice -- xml )
    [ choices>> value ] [ multiple>> ] bi
    [ swap ] [ swap 1array ] if [ [ dup ] ] dip
    [ member? render-option ] curry compose map ;