twitter: Changed twitter-url to use >url
parent
f8e781ee17
commit
4738824fb2
|
@ -19,9 +19,9 @@ twitter-source [ "factor" ] initialize
|
||||||
call
|
call
|
||||||
] with-scope ; inline
|
] with-scope ; inline
|
||||||
|
|
||||||
: twitter-url ( string -- string' )
|
: twitter-url ( string -- url )
|
||||||
ssl-supported?
|
ssl-supported?
|
||||||
"https://api.twitter.com/" "http://api.twitter.com/" ? prepend ;
|
"https://api.twitter.com/" "http://api.twitter.com/" ? prepend >url ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
@ -33,7 +33,7 @@ PRIVATE>
|
||||||
] with-twitter-oauth ;
|
] with-twitter-oauth ;
|
||||||
|
|
||||||
: twitter-authorize-url ( token -- url )
|
: twitter-authorize-url ( token -- url )
|
||||||
"oauth/authorize" twitter-url >url
|
"oauth/authorize" twitter-url
|
||||||
swap key>> "oauth_token" set-query-param ;
|
swap key>> "oauth_token" set-query-param ;
|
||||||
|
|
||||||
: obtain-twitter-access-token ( request-token verifier -- access-token )
|
: obtain-twitter-access-token ( request-token verifier -- access-token )
|
||||||
|
|
Loading…
Reference in New Issue