2ch-mode

Intro

2ch-modeは， HATTORI Masashi さんがつくられた， 2ch ブラウザです。

Table of contents

• 知っていると便利な辺り
  • 2ch-mode で串を使う
• いろいろ
  • 2ch-mode ではバッファバーを使わない
  • 2ch-mode 関係のバッファをバッファリストに出さないように

知っていると便利な辺り

2ch-mode で串を使う

2ch-mode で proxy を使う場合は、~/.www に proxy の設定をしておいて、 ~/.2ch/config.l に以下の記述をしておく。 www-mode は、あらかじめ使えるようにしておきましょう。 xyzzy part1 427 より。

(load "~/.www")

いろいろ

2ch-mode ではバッファバーを使わない

2ch-mode 起動時に、バッファバーを非表示にし、終了時に表示させる。

(add-hook '*2ch-start-hook* #'(lambda () (hide-command-bar 'buffer-bar)))
(add-hook '*2ch-exit-hook* #'(lambda () (show-command-bar 'buffer-bar)))

2ch-mode 関係のバッファをバッファリストに出さないように

バッファバーやバッファリストに 2ch-mode 関係のバッファを出さないようにする。 バッファ名の先頭に半角スペースがあると、そうなるらしい。 （info-modoki.l もそういうことだったのか）。 xyzzy Part4 781 より。

(setq *buffer-board* " 2ch: Board")
(setq *buffer-board-temp* " 2ch: Board Temp")
(setq *buffer-bookmark* " 2ch: Bookmark")
(setq *buffer-form* " 2ch: Form")
(setq *buffer-grep* " 2ch: Grep")
(setq *buffer-history* " 2ch: History")
(setq *http-buffer-name* " 2ch: HTTP")
(setq *http-gzip-buffer-name* " 2ch: GZIP")
(setq *buffer-temp* " 2ch: Temp")
(setq *buffer-menu* " 2ch: Menu")
(setq *buffer-search* " 2ch: Search")
(setq *buffer-thread* " 2ch: Thread")
(setq *buffer-archive* " 2ch: Archive")
(setq *buffer-view* " 2ch: View")

(defun tracking-buffer-name (track-name)
  (format nil " 2ch: ~A: [~A] ~A" *tracking-name* track-name (tracking-file track-name)))

(add-hook '*2ch-exit-hook*
          #'(lambda ()
              (dolist (buf (buffer-list))
                (let ((bufname (buffer-name buf)))
                  (when (string-match "^ 2ch:" bufname)
                    (delete-buffer bufname))))))