named-charref ( str -- newstr )

Vocabulary

html.entities.private

Inputs

str

an object

Outputs

newstr

an object

Definition

USING: assocs kernel ranges sequences ;

IN: html.entities.private

: named-charref ( str -- newstr )
    html5 ?at [
        dup dup length 1 (a..b) [ head html5 at ] with map-find
        [ swapd tail append ] [ drop "&" prepend ] if*
    ] unless ;