htmlize-tokens ( tokens line# -- html-tokens )


Vocabulary
codebook

Inputs
tokensan object
line#an object


Outputs
html-tokensan object


Definition
USING: accessors arrays combinators kernel sequences xml.data
xml.syntax.private ;

IN: codebook

: htmlize-tokens ( tokens line# -- html-tokens )
swap [ [ str>> zwnj ] [ id>> ] bi codebook-style case ] map
2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag { name ~name~ } { children ~vector~ } }
""
}
}
} interpolate-xml "\n" 2array ;