twinstall.el

(defvar twinstall-curl-program (executable-find "curl"))
(defvar twinstall-last-url "")
(defvar twinstall-hash-tags "#emacsjp #twinstall")

(defun twinstall-tweet-url (url)
  (let* ((name (file-name-nondirectory url))
	 (text (cond
		((string= (concat auto-install-emacswiki-base-url name) url)
		 (format "EmacsWikiから%sをインストールしました。 %s %s"
			 name twinstall-hash-tags url))
		(t
		 (format "%sをインストールしました。 %s %s"
			 name twinstall-hash-tags url)))))
    (twittering-call-api
     'update-status
     `((status . ,text)))))

(defadvice auto-install-download (after twinstall-push-url activate)
  (setq twinstall-last-url (ad-get-arg 0)))

(defadvice auto-install-from-url (after twinstall-tweet-url activate)
  (twinstall-tweet-url auto-install-last-url))

(defadvice auto-install-from-emacswiki (after twinstall-tweet-emacswiki activate)
  (twinstall-tweet-url twinstall-last-url))

(defun twinstall-from-tweet ()
  (interactive)
  (let ((text (get-text-property (point) 'text)))
    (when (string-match " #emacsjp #twinstall \\(http://t\\.co/.*\\)$" text)
      (twinstall-from-tco (match-string 1 text)))))

(defun twinstall-tco (tco-url)
  (when (string-match "\\`http://t\\.co/" tco-url)
    (let ((url (twinstall-expand-url tco-url)))
      (auto-install-from-url url))))

(defun twinstall-expand-url (url)
  (with-temp-buffer
    (call-process twinstall-curl-program nil t nil "-v" url)
    (goto-char (point-min))
    (if (re-search-forward "^< Location: \\(.*\\)\r$" nil t)
	(match-string 1)
      url)))

M-x auto-install-from-emacswiki でも tweet するようにしてみました。
M-x auto-install-batch の対応は面倒ですね。。