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")))))

SBCL 1.1.5 で導入された package local nicknames

これはいい。

http://www.sbcl.org/manual/index.html#Package_002dLocal-Nicknames

CL-USER> (defpackage :foo.bar.baz (:use :cl))
#<PACKAGE "FOO.BAR.BAZ">
CL-USER> (defparameter foo.bar.baz::foo 1)
FBZ::FOO
CL-USER> (defpackage :aaa (:use :cl))
#<PACKAGE "AAA">
CL-USER> (defpackage :bbb (:use :cl))
#<PACKAGE "BBB">
CL-USER> (sb-ext:add-package-local-nickname :fbz :foo.bar.baz :aaa)
#<PACKAGE "AAA">
CL-USER> (in-package :aaa)
#<PACKAGE "AAA">
AAA> fbz::foo
1
AAA> (in-package :bbb)
#<PACKAGE "BBB">
BBB> fbz::foo
 ; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Package ~A does not exist." {1005DE7C93}>.
BBB> (sb-ext:add-package-local-nickname :fbz :foo.bar.baz)
#<PACKAGE "BBB">
BBB> fbz::foo
1