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

let the world know you tweet from factor

db4
Joe Groff 2009-02-13 13:07:48 -06:00
parent 85a3787622
commit 53f6d394ea
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/twitter/twitter.factor
View File

@ -3,7 +3,9 @@ http.client json.reader kernel macros namespaces sequences
urls.secure urls.encoding ; urls.secure urls.encoding ;
IN: twitter IN: twitter
SYMBOLS: twitter-username twitter-password ; SYMBOLS: twitter-username twitter-password twitter-source ;
twitter-source [ "factor" ] initialize
TUPLE: twitter-status TUPLE: twitter-status
created-at created-at
@ -69,7 +71,8 @@ MACRO: keys-boa ( keys class -- )
twitter-username twitter-password [ get ] bi@ set-basic-auth ; twitter-username twitter-password [ get ] bi@ set-basic-auth ;
: update-post-data ( update -- assoc ) : update-post-data ( update -- assoc )
"status" associate ; "status" associate
[ twitter-source get "source" ] dip [ set-at ] keep ;
: (tweet) ( string -- json ) : (tweet) ( string -- json )
update-post-data "https://twitter.com/statuses/update.json" <post-request> update-post-data "https://twitter.com/statuses/update.json" <post-request>