report-link ( builder -- xml )

Vocabulary

webapps.mason.report

Inputs

builder

an object

Outputs

xml

an 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 ;