Created
August 18, 2010 17:21
-
-
Save faried/535483 to your computer and use it in GitHub Desktop.
twmode "feature"
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
((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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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