twittering-modeでTwitter
Emacs生活を充実させつつある今日このごろですが、twitterもEmacsでできるということで、twittering-mode入れてみました。
gitで最新をおいかけるようにしています。
Twittering-mode
http://twmode.sourceforge.net/ja/
EmacsWiki: TwitteringMode-ja
http://www.emacswiki.org/emacs-ja/TwitteringMode-ja
インストール
~/src配下にgitのクローン。
~/.emacs.d/lispにload-pathを通しています。
$ cd ~/src $ git clone git://github.com/hayamiz/twittering-mode.git $ cd twittering-mode $ cp twittering-mode.el ~/.emacs.d/lisp
updateの際は、
$ cd ~/src/twittering-mode $ git pull $ cp twittering-mode.el ~/.emacs.d/lisp
としています。
auto-install.elを導入しているので、
(install-elisp “http://github.com/hayamiz/twittering-mode/raw/master/twittering-mode.el”)
をemacsで評価することで、インストールをするようにしました。
参考URL
mitukiii.jp | Emacs用TwitterクライントTwitteringModeを使ってみる
http://mitukiii.jp/2010/11/01/twittering-mode/
.emacs
以下のとおり設定を入れています。
xAuthの認証に対応しているのは、2010年8月29日現在、git先端のほうだけです。
;;
;; Twitter
;;
;; (install-elisp "http://github.com/hayamiz/twittering-mode/raw/master/twittering-mode.el")
; from http://masutaka.net/chalow/2009-06-07-5.html
;;
(require 'twittering-mode)
(setq twittering-auth-method 'xauth)
(setq twittering-username "atauky")
(setq twittering-timer-interval 75)
(setq twittering-convert-fix-size 48)
(setq twittering-update-status-function 'twittering-update-status-from-pop-up-buffer)
(setq twittering-icon-mode t)
(setq twittering-scroll-mode nil)
;; いくつかのTLをまとめて名前をつけることができる
(setq twittering-timeline-spec-alias
`(("related-to" .
,(lambda (username)
(if username
(format ":search/to:%s OR from:%s OR @%s/"
username username username)
":home")))
))
;; 起動時に以下のリストを読みこむ
(setq twittering-initial-timeline-spec-string
'("$related-to(atauky)"
"atauky/who-i-met"
"atauky/conversationlist"
"atauky/jef-united"
":direct_messages"
":home"))
(add-hook 'twittering-mode-hook
(lambda ()
(set-face-bold-p 'twittering-username-face t)
(set-face-foreground 'twittering-username-face "DeepSkyBlue3")
(set-face-foreground 'twittering-uri-face "gray60")
(setq twittering-status-format "%i %p%s / %S:\n%FOLD{%T}\n%r %R [%@]")
(setq twittering-retweet-format " RT @%s: %t")
;; "F"でお気に入り
;; "R"でリツイートできるようにする
(define-key twittering-mode-map (kbd "F") 'twittering-favorite)
(define-key twittering-mode-map (kbd "R") 'twittering-native-retweet)
;; "<"">"で先頭、最後尾にいけるように
(define-key twittering-mode-map (kbd "<") (lambda () (interactive) (goto-char (point-min))))
(define-key twittering-mode-map (kbd ">") (lambda () (interactive) (goto-char (point-max))))))
;; URL短縮サービスをj.mpに
;; YOUR_USER_IDとYOUR_API_KEYを自分のものに置き換えてください
;; from http://u.hoso.net/2010/03/twittering-mode-url-jmp-bitly.html
(add-to-list 'twittering-tinyurl-services-map
'(jmp . "http://api.j.mp/shorten?version=2.0.1&login=YOUR_USER_ID&apiKey=YOUR_API_KEY&format=text&longUrl="))
(setq twittering-tinyurl-service 'jmp)
“F”でお気に入り、”R”で公式RTする設定を入れたら、とても使いやすくなりました。EmacsでWindowを6分割くらいしてTLを流しています。Windows状態を保存できるようになればもっといいんだけどな…window.elとか昔使っていたけど。
今はどんな手があるんだろう。
[2011.09.21 追記]
twittering-mode更新でOAuth認証できるようにしました。
こちらの記事もあわせてどうぞ
Pingback: mitukiii.jp | Emacs用TwitterクライントTwitteringModeを使ってみる