listing-html-template ( title listing ?parent CO-N CO-M CO-S -- xml )

Vocabulary

http.server.static

Inputs

title	an object
listing	an object
?parent	an object
CO-N	an object
CO-M	an object
CO-S	an object

Outputs

xml

an object

Definition

USING: xml.data xml.syntax.private ;

IN: http.server.static

:: listing-html-template
    ( title listing ?parent CO-N CO-M CO-S -- xml )
    H{
        { "title" title }
        { "CO-M" CO-M }
        { "CO-N" CO-N }
        { "CO-S" CO-S }
        { "?parent" ?parent }
        { "listing" listing }
    } T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                "\n        "
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;