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 ] curry [ [ % ] [ , ] ?if ] curry each ] "" make ;