Navi2ch for Emacs (Part 12)
■ このスレッドは過去ログ倉庫に格納されています
0329名無しさん@お腹いっぱい。
NGNGされない。
etc.txt で対応するのではなく
(defvar my-navi2ch-list-moved-board-alist
'(("http://pc.2ch.net/unix/" . "http://pc3.2ch.net/unix/")
("http://pc.2ch.net/linux/" . "http://pc3.2ch.net/linux/")))
(defadvice navi2ch-list-make-board-txt
(after my-navi2ch-list-modify-moved-board activate compile)
(save-excursion
(goto-char (point-min))
(let ((regexp (regexp-opt
(mapcar #'car my-navi2ch-list-moved-board-alist))))
(while (re-search-forward regexp nil t)
(let ((str (cdr (assoc (match-string 0)
my-navi2ch-list-moved-board-alist))))
(if (stringp str)
(replace-match str)))))))
こんな感じで board.txt を直接書き換えるようにしておき、list-mopde で
C-u s すれば変わった板として扱う。
Navi2ch の側でもっとちゃんとしたほうがいいんだろうけど、自分に影響ある
移転ってほとんどないから、いまいち意欲がわかないんだよなあ。
■ このスレッドは過去ログ倉庫に格納されています