help-stylesheet ( stylesheet -- xml )


Vocabulary
help.html

Inputs
stylesheetan object


Outputs
xmlan object


Definition
USING: io.encodings.ascii io.files kernel sequences xml.data
xml.syntax.private ;

IN: help.html

: help-stylesheet ( stylesheet -- xml )
"vocab:help/html/stylesheet.css" ascii file-contents
swap "\n" glue 1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag { name ~name~ } { children ~vector~ } }
""
}
}
} interpolate-xml ;