【やっつけメモ】 Emacs で twitter をこっそりとやるための最低限度の関数

Emacs で仕事中をしているとき、目立たないように twitter をやりたい。
Emacs から、wget, nkf, xsltproc に下請けに出して処理するための
健康で文化的な（？）最低限度の関数三つ。

-------------------------------------------------------------------

(defun twit-friend ()
  "フレンド・タイムラインを表示"
  (interactive)
  (let 'twit-buf
    (setq twit-buf (get-buffer-create "twit-friend"))
    (if (switch-to-buffer twit-buf)
	(progn
	  (erase-buffer )
	  (shell-command "wget -q 
--http-user='YOUR_USER_NAME' 
--http-password='YOUR_PASSWORD' 
http://twitter.com/statuses/friends_timeline.atom -O - | 
nkf --numchar-input -w | 
xsltproc PASS_TO_XSLT_STYLE_SHEET/twit_friend.xslt -" t)))))

;; (global-set-key "C-cf" 'twit-friend)

(defun twit-rt ()
  "タイムラインの現在行をRT用ひな型に書き換える"
  (interactive)
  (let 'line-end
    (progn
      (end-of-line)
      (setq line-end (point))
      (beginning-of-line)
      (if (re-search-forward 
	   "([^:]*): ([^:]*): (.*)" 
	   line-end)
	  (replace-match " RT @2 3"))
      (beginning-of-line))))

;; (global-set-key "C-cr" 'twit-rt)

(defun twit-post ()
  "現在行の内容を投稿する"
  (interactive)
  (let 'twit-mesg
    (save-excursion 
      (setq twit-mesg 
	    (buffer-substring-no-properties 
	     (progn (beginning-of-line)(point)) 
	     (progn (end-of-line)(point))))
      (shell-command 
       (concat "wget --keep-session-cookies 
--http-user=YOUR_USERNAME --http-password=YOUR_PASSWORD 
--post-data='status=" 
	       twit-mesg 
	       "' http://twitter.com:80/statuses/update.xml")))))

;; (global-set-key "C-cp" 'twit-post)

-------------------------------------------------------------------

（設定）
YOUR_USERNAME 二ヶ所、YOUR_PASSWORD 二ヶ所
PASS_TO_XSLT_STYLE_SHEET （twit_friend.xslt までのパス）一ヶ所

twit_friend.xslt　は、前に書いたやつを使う。