html-name-char ( char -- str )

Vocabulary

codebook

Inputs

char

an object

Outputs

str

an object

Definition

USING: combinators kernel math.parser sequences strings unicode
;

IN: codebook

: html-name-char ( char -- str )
    {
        { [ dup alpha? ] [ 1string ] }
        { [ dup digit? ] [ 1string ] }
        [ >hex 6 48 pad-head "_" "_" surround ]
    } cond ;