From 7f8e890f1f05458f8357e218158cea01d7f4a075 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 12 Feb 2009 22:39:48 -0600
Subject: [PATCH] twitta

---
 extra/twitter/twitter.factor | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 extra/twitter/twitter.factor

diff --git a/extra/twitter/twitter.factor b/extra/twitter/twitter.factor
new file mode 100644
index 0000000000..eceb40c1c2
--- /dev/null
+++ b/extra/twitter/twitter.factor
@@ -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 ;
+