render-recaptcha ( recaptcha -- xml )


Vocabulary
furnace.recaptcha.private

Inputs
recaptchaan object


Outputs
xmlan object


Definition
USING: accessors xml.data xml.syntax.private ;

IN: furnace.recaptcha.private

: render-recaptcha ( recaptcha -- xml )
site-key>> 1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
"\n\n "
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;