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

twitter: Add user-profile and refactor a bit.

db4
Doug Coleman 2014-02-12 20:11:32 -08:00
parent 8437bf5033
commit bc7680a914
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/twitter/twitter.factor
View File

@ -59,7 +59,7 @@ MACRO: keys-boa ( keys class -- )
: set-request-twitter-auth ( request -- request ) : set-request-twitter-auth ( request -- request )
[ <oauth-request-params> set-oauth ] with-twitter-oauth ; [ <oauth-request-params> set-oauth ] with-twitter-oauth ;
: twitter-request ( request -- data ) : http-twitter-request ( request -- data )
set-request-twitter-auth http-request* ; inline set-request-twitter-auth http-request* ; inline
PRIVATE> PRIVATE>
@ -136,7 +136,7 @@ PRIVATE>
: (tweet) ( string -- json ) : (tweet) ( string -- json )
update-post-data "update" status-url update-post-data "update" status-url
<post-request> twitter-request ; <post-request> http-twitter-request ;
PRIVATE> PRIVATE>
@ -145,19 +145,24 @@ PRIVATE>
: tweet ( string -- ) (tweet) drop ; : tweet ( string -- ) (tweet) drop ;
: twitter-request ( string -- obj )
twitter-url <get-request> http-twitter-request json> ;
: verify-credentials ( -- foo ) : verify-credentials ( -- foo )
"1.1/account/verify_credentials.json" twitter-url "1.1/account/verify_credentials.json" twitter-request ;
<get-request> twitter-request json> ;
! Timelines ! Timelines
<PRIVATE <PRIVATE
: timeline ( url -- tweets ) : timeline ( url -- tweets )
status-url <get-request> status-url <get-request>
twitter-request json>twitter-statuses ; http-twitter-request json>twitter-statuses ;
PRIVATE> PRIVATE>
: user-profile ( user -- json )
"1.1/users/show.json?screen_name=" prepend twitter-request ;
: public-timeline ( -- tweets ) : public-timeline ( -- tweets )
"public_timeline" timeline ; "public_timeline" timeline ;