if>quot ( tag -- quot )

Vocabulary

html.templates.chloe

Inputs

tag

an object

Outputs

quot

an object

Definition

USING: html.forms html.templates.chloe.syntax kernel make ;

IN: html.templates.chloe

: if>quot ( tag -- quot )
    [
        [
            "code" optional-attr
            [ attr>word [ , ] [ f , ] if* ] [ t , ] if*
        ] [ "value" optional-attr [ , \ value , ] [ t , ] if* ]
        bi \ and ,
    ] [ ] make ;