render-option ( text selected? -- xml ) (original) (raw)

render-option ( text selected? -- xml )

Vocabulary
html.components

Inputs

Outputs

Definition

USING: kernel xml.data xml.syntax.private ;

IN: html.components

: render-option ( text selected? -- xml )
"selected" and swap 2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;