steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

twitter: Changed twitter-url to use >url

char-rename
xzenf 2016-08-17 15:59:08 -04:00 committed by John Benediktsson
parent f8e781ee17
commit 4738824fb2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/twitter/twitter.factor
View File

@ -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 )