Navi2ch for Emacs (Part 20)

[0001 名無しさん＠お腹いっぱい。 2010/02/06(土) 08:37:55]

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

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 19)
http://pc12.2ch.net/test/read.cgi/unix/1221368890/

[0092 名無しさん＠お腹いっぱい。 2010/05/27(木) 03:47:51]

フィルター処理を省略したい板があって、
Part 12 の >>228 で
(defadvice navi2ch-article-get-message-list
(before navi2ch-article-get-message-list-ad activate)
(if (and navi2ch-article-message-filter-mode
(string-match "live" (cdr (assq 'uri navi2ch-article-current-board))))
(setq navi2ch-article-message-filter-mode nil)))
というのをみつけたのですが、
これを、live だけでなく、他の板も対象にするにはどう変えればいいですか?
具体的には mnewsplus も追加したいです。

[0093 名無しさん＠お腹いっぱい。 2010/05/27(木) 03:52:59]

ものすごい安易な解決だと、こんな感じで (or ...) でつなげば動くんじゃないの？試してないけど。

(defadvice navi2ch-article-get-message-list
(before navi2ch-article-get-message-list-ad activate)
(if (and navi2ch-article-message-filter-mode
(or (string-match "live" (cdr (assq 'uri navi2ch-article-current-board))))
(string-match "mnewsplus" (cdr (assq 'uri navi2ch-article-current-board)))))
(setq navi2ch-article-message-filter-mode nil)))

[0094 92 2010/05/27(木) 04:32:08]

>>93
即レス、ありがとうございました。できました。
> (or (string-match "live" (cdr (assq 'uri navi2ch-article-current-board))))
「 ) 」が一つ多かったみたいです。

[0095 名無しさん＠お腹いっぱい。 2010/05/27(木) 20:07:33]

>>92
"live" の部分を (regexp-opt '("live" "mnewsplus")) にしてもよいと思います。
regexp-opt() は文字列のリストを取ってそれらの文字列どれかにマッチするような正規表現を返します。

(regexp-opt '("liveaaa" "liveabc" "mnewsplus"))
-> "\\(?:livea\\(?:aa\\|bc\\)\\|mnewsplus\\)"

こんな感じです。

[0096 92 2010/05/28(金) 02:31:27]

>>95
レスありがとうございます。他にも追加して次のようになりました。

(defadvice navi2ch-article-get-message-list
(before navi2ch-article-get-message-list-ad activate)
(if (and navi2ch-article-message-filter-mode
(string-match (regexp-opt '("live" "mnewsplus" "bbynews" "atchs"))
(cdr (assq 'uri navi2ch-article-current-board))))
(setq navi2ch-article-message-filter-mode nil)))

テニス実況とニュースをスムーズに移動できるようになりました。
ありがとうございました。