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認証できるようにしました。