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

Merge branch 'master' into new_ui

db4
Slava Pestov 2009-02-13 20:27:55 -06:00
parent 36f9793c92 83834f802a
commit 0e0e64166f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/twitter/twitter.factor
View File

@ -27,8 +27,7 @@ MACRO: keys-boa ( keys class -- )
: set-request-twitter-auth ( request -- request ) : set-request-twitter-auth ( request -- request )
twitter-username get twitter-password get set-basic-auth ; twitter-username get twitter-password get set-basic-auth ;
: twitter-request ( string quot -- data ) : twitter-request ( request -- data )
[ twitter-url ] dip call
set-request-twitter-auth set-request-twitter-auth
http-request nip ; inline http-request nip ; inline
@ -101,10 +100,11 @@ PRIVATE>
[ [
"status" set "status" set
twitter-source get "source" set twitter-source get "source" set
] make-assoc ; ] H{ } make-assoc ;
: (tweet) ( string -- json ) : (tweet) ( string -- json )
update-post-data "update" [ <post-request> ] twitter-request ; update-post-data "update" twitter-url
<post-request> twitter-request ;
PRIVATE> PRIVATE>
@ -117,7 +117,8 @@ PRIVATE>
<PRIVATE <PRIVATE
: timeline ( url -- tweets ) : timeline ( url -- tweets )
[ <get-request> ] twitter-request json>twitter-statuses ; twitter-url <get-request>
twitter-request json>twitter-statuses ;
PRIVATE> PRIVATE>