Emacs で仕事中をしているとき、目立たないように twitter をやりたい。
Emacs から、wget, nkf, xsltproc に下請けに出して処理するための
健康で文化的な(?)最低限度の関数三つ。
-------------------------------------------------------------------
-------------------------------------------------------------------
(設定)
YOUR_USERNAME 二ヶ所、YOUR_PASSWORD 二ヶ所
PASS_TO_XSLT_STYLE_SHEET (twit_friend.xslt までのパス)一ヶ所
twit_friend.xslt は、前に書いたやつを使う。
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 は、前に書いたやつを使う。