#lang racket
(require (planet ryanc/webapi)) (require (planet gh/gapi/macro)) (require-gapi-doc plus.v1.js)
(define my-client-id "put your client ID here")
(define my-client-secret "put your client secret here")
(define client (oauth2-client #:id my-client-id
#:secret my-client-secret))
(define scopes (list "https://www.googleapis.com/auth/plus.me"))
(define auth (oauth2/request-auth-code/browser google-auth-server
client
scopes))
(define access-token (send auth get-access-token #:re-acquire? #t))
(plus-activities-list #:userId "me"
#:collection "public"
#:oauth_token access-token)