Navi2ch for Emacs (Part 19)

[0001 名無しさん＠お腹いっぱい。 2008/09/14(日) 14:08:10]

Emacsen で動く 2ch 専用ブラウザ、Navi2ch のスレッド Part 19 です。

Navi2ch Project Home Page
http://navi2ch.sourceforge.net/

*info* (navi2ch)Top
(info "navi2ch")

開発版
% cvs -z3 -d:pserver:[e-mail]:/cvsroot/navi2ch co navi2ch

過去ログ
>> ~/.navi2ch/etc.txt
> navi2ch
> http://navi2ch.sourceforge.net/log/
> navi2ch

前スレ
Navi2ch for Emacs (Part 18)
http://pc11.2ch.net/test/read.cgi/unix/1185807398/

[0441 名無しさん＠お腹いっぱい。 2009/02/21(土) 00:17:42]

つ ~/.navi2ch/etc.txt

[0442 名無しさん＠お腹いっぱい。 2009/02/21(土) 00:28:48]

>>440
ためしてないけどこれで全部いけるはず

(setq navi2ch-list-moved-board-alist
(append navi2ch-list-moved-board-alist
(apply 'append
(mapcar (lambda (x)
(let ((uri (cdr (assq 'uri x))))
(and (stringp uri)
(string-match "^http://live23\\.2ch\\.net\\(.*\\)$" uri)
(list (cons uri
(concat "http://live23f7.2ch.net"
(match-string 1 uri)))))))
navi2ch-list-board-name-list))))