Common Lisp でリフレッシュトークンを使って Google Analytics の Core Reporting API をたたく

oauth2 は https://github.com/Neronus/oauth2 を使う。

(defpackage oauth2.test.google-analytics
  (:use :cl :oauth2))

(in-package oauth2.test.google-analytics)


(defparameter *token*
  (oauth2::string->token ""
                         :refresh-token "your refresh token"
                         :scope "https://www.googleapis.com/auth/analytics.readonly"))

(defparameter *refreshed-token*
  (oauth2:refresh-token "https://accounts.google.com/o/oauth2/token" *token*
                        :method :post
                        :scope "https://www.googleapis.com/auth/analytics.readonly"
                        :other `(("client_id" . "your client id")
                                 ("client_secret" . "your client secret"))))

(let ((drakma:*text-content-types* '(("application" . "json"))))
  (json:decode-json-from-string
   (request-resource "https://www.googleapis.com/analytics/v3/data/ga"
                     *refreshed-token*
                     :parameters ' (("ids" . "ga:999999999")
                                    ("metrics" . "ga:pageviews")
                                    ("dimensions" . "ga:pagePath")
                                    ("start-date" . "2013-01-01")
                                    ("end-date" . "2013-01-03")))))