Skip to content

Instantly share code, notes, and snippets.

@pnathan

pnathan/forager.lisp

Created September 26, 2017 07:16
Show Gist options
  • Save pnathan/edbcbb697dbfec0bed6f37d68ff51350 to your computer and use it in GitHub Desktop.
Save pnathan/edbcbb697dbfec0bed6f37d68ff51350 to your computer and use it in GitHub Desktop.
Download ZIP
forager.lisp
Raw
forager.lisp
(yason:parse
(flexi-streams:octets-to-string
(drakma:http-request "https://mastodon.social/oauth/token"
:method :post
:parameters
`(("client_id" . ,*client-key*)
("client_secret" . ,*client-secret*)
("grant_type" . "authorization_code")
("code" . ,*token*)
("scope" . "read")
("redirect_uri" . ,*redirect-uri*)
("name" . "forager")
)
))
:object-as :alist)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment