/
twitter-oauth.lisp
40 lines (32 loc) · 1.71 KB
/
twitter-oauth.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
(in-package :twitter)
;; cl-oauth is used in this library.
;; These methods have not been tested and aren't used ...
;;
;; OAuth Methods
;;
;; OAuth resources
;; oauth/request_token
;; oauth/authorize
;; oauth/authenticate
;; oauth/access_token
;;
(define-command oauth/request-token (:get :string)
(twitter-app-uri "oauth/request_token")
"Allows a Consumer application to obtain an OAuth Request Token to request user authorization"
:force_login "Forces the user to enter their credentials to ensure the correct users account is authorized.")
(define-command oauth/authorize (:get :string)
(twitter-app-uri "oauth/authorize")
"Allows a Consumer application to use an OAuth Request Token to request user authorization. ")
(define-command oauth/authenticate (:get :string)
(twitter-app-uri "oauth/authorize")
"Allows a Consumer application to use an OAuth request_token to request user authorization. "
:force_login "Forces the user to enter their credentials to ensure the correct users account is authorized.")
(define-command oauth/access-token (:get :string)
(twitter-app-uri "oauth/access_token")
"Allows a Consumer application to exchange the OAuth Request Token for an OAuth Access Token. "
:x_auth_username "The username of the user to obtain a token for. (required when using xAuth)"
:x_auth_password "The password of the user for which to obtain a token for. (required when using xAuth)"
:x_auth_mode "Set this value to 'client_auth', without the quotes. (required when using xAuth)")
;;------------------ end of oauth methods -------------------------------------------
;; cl-oauth is used in this library.
;; These methods have not been tested and aren't used ...