help>html ( topic -- xml )

Vocabulary

help.html

Inputs

topic

an object

Outputs

xml

an object

Definition

USING: help help.topics html html.streams io.pathnames kernel
sequences xml.data xml.syntax.private ;

IN: help.html

: help>html ( topic -- xml )
    [ article-title " - Factor Documentation" append ] [
        [ print-topic ] with-html-writer css-styles-to-classes
        cache-images
        "resource:extra/websites/factorcode/favicon.ico" dup
        file-name ?copy-file [ help-header help-nav ] dip
        help-footer 3 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ interpolated { var 0 } }
                    ""
                    T{ tag
                        { name ~name~ }
                        { attrs ~attrs~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] bi simple-page ;