with-report ( quot: ( -- xml ) -- )

Vocabulary

mason.report

Inputs

quot	a quotation with stack effect ( -- xml )

Outputs

None

Definition

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

IN: mason.report

: with-report ( quot: ( -- xml ) -- )
    [ "report" utf8 ] dip [ [ common-report ] ] dip [
        ( -- xml ) call-effect 2 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml write-xml
    ] curry compose with-file-writer ; inline