report-link ( builder -- xml )


Vocabulary
webapps.mason.report

Inputs
builderan object


Outputs
xmlan object


Definition
USING: accessors kernel urls xml.data xml.syntax.private ;

IN: webapps.mason.report

: report-link ( builder -- xml )
[ URL" report" clone ] dip
[ os>> "os" set-query-param ]
[ cpu>> "cpu" set-query-param ] bi 1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;