building ( builder string -- xml )

Vocabulary

webapps.mason.package

Inputs

builder	an object
string	an object

Outputs

xml

an object

Definition

USING: accessors kernel mason.report xml.data xml.syntax.private
;

IN: webapps.mason.package

: building ( builder string -- xml )
    swap current-git-id>> git-link 2 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ interpolated { var 0 } }
                " for "
                T{ interpolated { var 1 } }
                ""
            }
        }
    } interpolate-xml ;