root/lang/io/WebAPI/GoogleChart/GoogleChart.io

// @authro nowelium
GoogleChart := Object clone do(
    Query := Map clone do(
        addParameter := method(key, value,
            atPut(key, value)
        )

        asQueryParams := method(
            buf := Sequence clone asBuffer
            self foreach(key, value,
                buf appendSeq(key)
                buf appendSeq("=")
                buf appendSeq(value)
                buf appendSeq("&")
            )
            buf asString
        )
    )

    init := method(
        self query := Query clone
    )

    URL := Object clone do(
        url := "http://chart.apis.google.com/chart?"
        query := nil
        withQuery := method(
            buf := Sequence clone asBuffer
            buf appendSeq(url)
            args := call message argsEvaluatedIn(call target)
            args foreach(chart,
                buf appendSeq(chart query asQueryParams)
            )
            query = buf asString
            self
        )
        asHTML := method(
            "<img src=\"" .. query asMutable replaceSeq("&", "&amp;") .. "\" />"
        )
    )
)