navi2ch のインストール方法

Meadow で cygwin を使わずに navi2ch をインストールしてみた。

• まずはIndex of /snapshotから navi2ch のアーカイブを取ってくる。
  • 2007-05-10のsnapshotが一番安定している？らしいので僕はこれを落とした。
• 落としたファイルを解凍して、できたディレクトリの名前を「navi2ch」に変更し、「~/site-lisp」などに移動する。
• 「navi2ch/bcomp.el」を開き、「M-x eval-current-buffer」する。
• .emacs に以下を追加する。(~/site-lisp/navi2ch/ にインストールした場合)

;;; navi2ch の設定
(setq load-path (cons (expand-file-name "~/site-lisp/navi2ch/") load-path))
(autoload 'navi2ch "navi2ch" "Navigator for 2ch for Emacs" t)

• Meadow を再起動するか、もしくは上記の設定を選択して「M-x eval-region」する。
• 以降「M-x navi2ch」で navi2ch が起動できる。

とりあえずちょっとだけいじった設定

;;; navi2ch の設定
(setq load-path (cons (expand-file-name "~/site-lisp/navi2ch/") load-path))
(autoload 'navi2ch "navi2ch" "Navigator for 2ch for Emacs" t)
;; 送信控えをとる
(setq navi2ch-message-save-sendlog t)
;; 以下はエラーになる
;; (add-to-list 'navi2ch-list-navi2ch-category-alist
;;              navi2ch-message-sendlog-board)
;; 送信控えのレスに板名も表示する
(setq navi2ch-message-sendlog-message-format-function
      'navi2ch-message-sendlog-message-format-with-board-name)
;; キーバインド
;; http://navi2ch.sourceforge.net/doc/navi2ch_4.html#SEC32
(add-hook 'navi2ch-article-mode-hook
          (lambda ()
            (let ((map navi2ch-article-mode-map))
              (define-key map "w" 'navi2ch-article-write-sage-message) ; w で sage
              (define-key map "W" 'navi2ch-article-write-message)      ; W で age
              (define-key map "j" 'navi2ch-article-next-message)       ; j で次のレスへ
              (define-key map "k" 'navi2ch-article-previous-message)   ; k で前のレスへ
              (define-key map "n" 'navi2ch-article-few-scroll-up)      ; n で1行下ヘスクロール
              (define-key map "p" 'navi2ch-article-few-scroll-down)    ; p で1行上へスクロール
              )))

sage の方がよく使うと思うのでデフォルトの W よりも w の方がいい。なので age とバインドを取り替え。
j, k でレス移動。n, p で 1 行スクロールするようにした。

参考

• Navi2ch Project Home Page
• Navi2ch, Navigator for 2ch for Emacsen: Navi2ch, Navigator for 2ch for Emacsen