crashed-builder-body ( crashed-builders -- string content-type )

Vocabulary

webapps.mason.backend.watchdog

Inputs

crashed-builders

an object

Outputs

string	an object
content-type	an object

Definition

USING: sequences webapps.mason.backend xml.data
xml.syntax.private xml.writer ;

IN: webapps.mason.backend.watchdog

: crashed-builder-body
    ( crashed-builders -- string content-type )
    [
        os/cpu 1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] map 1 nenum T{ xml
        { prolog
            T{ prolog { version "1.0" } { encoding "UTF-8" } }
        }
        { before
            V{ T{ doctype-decl { name "html" } } "\n        " }
        }
        { body
            T{ tag
                { name
                    T{ name
                        { space "" }
                        { main "html" }
                        { url "" }
                    }
                }
                { children
                    V{ "\n            " ~tag~ "\n        " }
                }
            }
        }
        { after V{ "" } }
    } interpolate-xml xml>string "text/html" ;