twitter: Update API url.
parent
422ccf9901
commit
bc651331bb
|
@ -22,7 +22,7 @@ twitter-source [ "factor" ] initialize
|
|||
|
||||
: twitter-url ( string -- string' )
|
||||
ssl-supported?
|
||||
"https://twitter.com/" "http://twitter.com/" ? prepend ;
|
||||
"https://api.twitter.com/" "http://api.twitter.com/" ? prepend ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
|
@ -54,7 +54,7 @@ MACRO: keys-boa ( keys class -- )
|
|||
|
||||
! Twitter requests
|
||||
: status-url ( string -- url )
|
||||
"statuses/" ".json" surround twitter-url ;
|
||||
"1.1/statuses/" ".json" surround twitter-url ;
|
||||
|
||||
: set-request-twitter-auth ( request -- request )
|
||||
[ <oauth-request-params> set-oauth ] with-twitter-oauth ;
|
||||
|
|
Loading…
Reference in New Issue