twitta
parent
2bb9448ebc
commit
7f8e890f1f
extra/twitter
|
@ -0,0 +1,22 @@
|
|||
USING: accessors assocs hashtables http http.client json.reader
|
||||
kernel namespaces urls.encoding ;
|
||||
IN: twitter
|
||||
|
||||
SYMBOLS: twitter-username twitter-password ;
|
||||
|
||||
: set-twitter-credentials ( username password -- )
|
||||
[ twitter-username set ] [ twitter-password set ] bi* ;
|
||||
|
||||
: set-request-twitter-auth ( request -- request )
|
||||
twitter-username twitter-password [ get ] bi@ set-basic-auth ;
|
||||
|
||||
: update-post-data ( update -- assoc )
|
||||
"status" associate ;
|
||||
|
||||
: tweet* ( string -- result )
|
||||
update-post-data "https://twitter.com/statuses/update.json" <post-request>
|
||||
set-request-twitter-auth
|
||||
http-request nip json> ;
|
||||
|
||||
: tweet ( string -- ) tweet* drop ;
|
||||
|
Loading…
Reference in New Issue