Twitter from emacs

Twitter from emacs is a script which lets you send messages to your Twitter buddies directly from emacs.
Twitter from emacs is a script which lets you send messages to your Twitter buddies directly from emacs.

Source:

;; Copyright (C) 2007 by Tapsell-Ferrier Limited

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301 USA

(require 'json)

(defvar twitter-usernamepassword-history nil)

(defun twitter (msg usernamepassword &optional imagename)
(interactive
(if current-prefix-arg
(append (twitter-ask)
(list (read-file-name "imagename: " "~/twitter/")))
(twitter-ask)))

;; Set the image (maybe)
(if imagename
(let ((resize-mini-windows nil))
(shell-command-to-string (concat "curl -L -s "
(format "-u %s " usernamepassword)
(format "-F "user[profile_image]=@%s" " (expand-file-name imagename))
"http://twitter.com/account/picture"))))
;; Send the entry
(let ((resize-mini-windows nil)
(twitter-return-value
(shell-command-to-string (concat (format "curl -s -u %s " usernamepassword)
(format "-d "status=%s" " msg)
"http://twitter.com/statuses/update.json"))))
(let ((stats (json-read-from-string twitter-return-value)))
(message "%s" stats)
(display-message-or-buffer (format "Created at: %s" (cdr (assoc 'created_at stats)))))))

(defun twitter-ask ()
(list
(read-from-minibuffer "status: ")
(read-from-minibuffer "username:password: "
(car twitter-usernamepassword-history)
nil nil
'twitter-usernamepassword-history)))
;; End

last updated on:
April 3rd, 2008, 17:41 GMT
price:
FREE!
developed by:
Tapsell-Ferrier Limited
license type:
GPL (GNU General Public License) 
category:
ROOT \ Communications \ Chat

FREE!

In a hurry? Add it to your Download Basket!

user rating 14

UNRATED
2.8/5
 

0/5

Add your review!

SUBMIT