HomeAboutCodePastes

Paste on 2021-05-10T19:05:24

(hc:with-input-from-request
 (iw:make-request method: 'POST
                  uri: (uc:make-uri scheme: 'https
                                    host: "login.eveonline.com"
                                    path: '(/ "oauth" "token"))
                  headers:
                  (iw:headers
                   `((authorization
                      #(basic ((username . ,(client-id))
                               (password . ,(secret-key))))))))
 `((grant_type . "authorization_code")
   (code . ,code))
 read-json)

plain