escape-string-by ( str table -- escaped )

Vocabulary

xml.entities

Inputs

str	an object
table	an object

Outputs

escaped

an object

Definition

USING: assocs kernel make sequences ;

IN: xml.entities

: escape-string-by ( str table -- escaped )
    [ '[ [ _ at ] [ % ] [ , ] ?if ] each ] "" make ;