default-stylesheet ( -- xml )

Vocabulary

xmode.code2html

Inputs

None

Outputs

xml

an object

Definition

USING: io.encodings.utf8 io.files xml.data xml.syntax.private ;

IN: xmode.code2html

: default-stylesheet ( -- xml )
    "resource:basis/xmode/code2html/stylesheet.css" utf8
    file-contents 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;