Skip to content

Instantly share code, notes, and snippets.

@faried
Created August 18, 2010 17:21
Show Gist options
  • Save faried/535483 to your computer and use it in GitHub Desktop.
Save faried/535483 to your computer and use it in GitHub Desktop.
twmode "feature"
(defun dump-status-to-buffer ()
(save-excursion
(set-buffer (get-buffer-create "some-buffer"))
(loop for status in twittering-new-tweets-statuses
do (insert (format "%s\n\n" status)))))
(add-hook 'twittering-new-tweets-hook 'dump-status-to-buffer)
((source . HootSuite) (id . 21506297644) (text . Dear Vice, I got stoned by the Juggalos http://bit.ly/cNGPiN) (source . <a href="http://www.hootsuite.com" rel="nofollow">HootSuite</a>) (created-at . Wed Aug 18 17:17:36 +0000 2010) (truncated . false) (in-reply-to-status-id . ) (in-reply-to-screen-name . ) (source-id) (user-id . 23818581) (user-name . VICE Magazine) (user-screen-name . VICEMAG) (user-location . Brooklyn, NY) (user-description . “[Vice magazine is] this all-embracing, all-swallowing whore of Babylon.” - Kyp Malone of TV on the Radio) (user-profile-image-url . http://a0.twimg.com/profile_images/185308108/vicelogo_normal.jpg) (user-url . http://www.viceland.com) (user-protected . false) (original-user-name) (original-user-screen-name) (recipient-screen-name))
((source . TweetMeme) (id . 21506256651) (text . Burn Notice S4 Ep 11 Preview: Blind Spot : The Terminator is coming for Michael Westen #burnnotice @burnnotice_usa http://ow.ly/1qNNbp) (source . <a href="http://tweetmeme.com" rel="nofollow">TweetMeme</a>) (created-at . Wed Aug 18 17:16:58 +0000 2010) (truncated . false) (in-reply-to-status-id . ) (in-reply-to-screen-name . ) (source-id . 21468715939) (user-id . 19567611) (user-name . Buzz Focus) (user-screen-name . buzzfocus) (user-location . New York) (user-description . We're entertainment fanatics - TV, Video Games, Movies, and Comics - Visit www.buzzfocus.com for more!) (user-profile-image-url . http://a0.twimg.com/profile_images/80937592/twitterlogo_normal.jpg) (user-url . http://www.buzzfocus.com) (user-protected . false) (original-user-name . Burn Notice) (original-user-screen-name . BurnNotice_USA) (recipient-screen-name))
((source . Posterous) (id . 21506231183) (text . OK, Cupid! Baby Angel Alexis Ohanian Comes to New York http://post.ly/sUEn) (source . <a href="http://posterous.com" rel="nofollow">Posterous</a>) (created-at . Wed Aug 18 17:16:35 +0000 2010) (truncated . false) (in-reply-to-status-id . ) (in-reply-to-screen-name . ) (source-id) (user-id . 811350) (user-name . Alexis Ohanian) (user-screen-name . kn0thing) (user-location . Yerevan, Armenia) (user-description . Co-founded reddit, breadpig (LOLmagnetz, xkcd: volume 0, & more geekery), angel investor, Kiva Fellow. I love falafel & I'd like to make the world suck less.) (user-profile-image-url . http://a2.twimg.com/profile_images/52090166/cif-alexis3_normal.png) (user-url . http://alexisohanian.com) (user-protected . false) (original-user-name) (original-user-screen-name) (recipient-screen-name))
diff --git a/twittering-mode.el b/twittering-mode.el
index 97fc074..916007e 100644
--- a/twittering-mode.el
+++ b/twittering-mode.el
@@ -201,6 +201,9 @@ directly. Use `twittering-current-timeline-spec-string' or
(defvar twittering-new-tweets-spec nil
"Timeline spec, which new tweets belong to, when
`twittering-new-tweets-hook' is run.")
+(defvar twittering-new-tweets-statuses nil
+ "New tweet status messages, when
+`twittering-new-tweets-hook' is run.")
(defvar twittering-new-tweets-hook nil
"*Hook run when new tweets are received.
@@ -2545,6 +2548,7 @@ Statuses are stored in ascending-order with respect to their IDs."
(cdr (assq 'text status))))
new-statuses))
(let ((twittering-new-tweets-spec spec)
+ (twittering-new-tweets-statuses new-statuses)
(twittering-new-tweets-count (length new-statuses)))
(run-hooks 'twittering-new-tweets-hook))
new-statuses))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment