htmlize-tokens ( tokens -- xml )

Vocabulary

xmode.code2html

Inputs

tokens

an object

Outputs

xml

an object

Definition

USING: accessors kernel sequences xml.data xml.syntax.private ;

IN: xmode.code2html

: htmlize-tokens ( tokens -- xml )
    [
        [ str>> ] [ id>> ] bi [
            name>> swap 2 nenum
            T{ xml-chunk { seq V{ "" ~tag~ "" } } }
            interpolate-xml
        ] when*
    ] map ;