From 53f6d394ea3d2e0c3bfe4408cb7c16f82f8002b3 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 13 Feb 2009 13:07:48 -0600 Subject: [PATCH] let the world know you tweet from factor --- extra/twitter/twitter.factor | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/extra/twitter/twitter.factor b/extra/twitter/twitter.factor index f9806a7c4f..2172d7cf81 100644 --- a/extra/twitter/twitter.factor +++ b/extra/twitter/twitter.factor @@ -3,7 +3,9 @@ http.client json.reader kernel macros namespaces sequences urls.secure urls.encoding ; IN: twitter -SYMBOLS: twitter-username twitter-password ; +SYMBOLS: twitter-username twitter-password twitter-source ; + +twitter-source [ "factor" ] initialize TUPLE: twitter-status created-at @@ -69,7 +71,8 @@ MACRO: keys-boa ( keys class -- ) twitter-username twitter-password [ get ] bi@ set-basic-auth ; : update-post-data ( update -- assoc ) - "status" associate ; + "status" associate + [ twitter-source get "source" ] dip [ set-at ] keep ; : (tweet) ( string -- json ) update-post-data "https://twitter.com/statuses/update.json"