Navi2ch for Emacs (Part 12)
まちBBS関東 を見ているのですが、次スレの誘導とかで、
下のように kanto.machi.to ではなく 203.192.159.253 と書かれていると、
navi2ch で開けず、ブラウザーで開くようになってしまうのですが、
どこかいじると開くことができるようになりますか?
たとえば、こんな URL
http://kanto.machi.to/bbs/read.pl?BBS=kanto&KEY=1038315936&LAST=50
http://203.192.159.253/bbs/read.pl?BBS=kanto&KEY=1038315936&LAST=50
それともうひとつ、フィルター処理なんですけど、
h キーで hide と そうじゃないものを切替える時に、
毎回フィルター処理が実行されるのですが、そういうものなのでしょうか。
d で hide を解除したレスが h を押すと再びフィルター処理で隠されてしまう。
! で登録したものじゃなくて自分で d で消したレスは平気なのですが。
下のように kanto.machi.to ではなく 203.192.159.253 と書かれていると、
navi2ch で開けず、ブラウザーで開くようになってしまうのですが、
どこかいじると開くことができるようになりますか?
たとえば、こんな URL
http://kanto.machi.to/bbs/read.pl?BBS=kanto&KEY=1038315936&LAST=50
http://203.192.159.253/bbs/read.pl?BBS=kanto&KEY=1038315936&LAST=50
それともうひとつ、フィルター処理なんですけど、
h キーで hide と そうじゃないものを切替える時に、
毎回フィルター処理が実行されるのですが、そういうものなのでしょうか。
d で hide を解除したレスが h を押すと再びフィルター処理で隠されてしまう。
! で登録したものじゃなくて自分で d で消したレスは平気なのですが。
|
|
|
169 ：名無しさん＠お腹いっぱい。：04/02/29 13:29
パッと思い付くのは
(setq navi2ch-article-filter-list
'((lambda () (replace-string "http://203.192.159.253/" "http://kanto.machi.to/"))))
などとして、記事にフィルタをかけるとか。
後半に関しては、自分も面倒だと思うことがあるけど、どのみち引っ掛かっている
フィルタ条件を調整する必要があるだろうし。以前、この辺りの挙動を変える
オプションがあったような。統合されたときになくなったのかな。
単に hide されたレスを見たいだけのときは、F で一時的に filter を切ってから
行き来することがあるけどね。
(setq navi2ch-article-filter-list
'((lambda () (replace-string "http://203.192.159.253/" "http://kanto.machi.to/"))))
などとして、記事にフィルタをかけるとか。
後半に関しては、自分も面倒だと思うことがあるけど、どのみち引っ掛かっている
フィルタ条件を調整する必要があるだろうし。以前、この辺りの挙動を変える
オプションがあったような。統合されたときになくなったのかな。
単に hide されたレスを見たいだけのときは、F で一時的に filter を切ってから
行き来することがあるけどね。
170 ：名無しさん＠お腹いっぱい。：04/02/29 14:48
こんなんでどうかな。
(defvar my-navi2ch-translate-url-regexp-list
'(("\\`http://203.192.159.253/" . "http://kanto.machi.to/")))
(defadvice navi2ch-article-select-current-link-url
(before my-translate-url-navi2ch-article-select-current-link-url activate)
(dolist (elt my-navi2ch-translate-url-regexp-list)
(catch :break
(when (string-match (car elt) url)
(setq url (replace-match (cdr elt) nil nil url))
(throw :break nil)))))
(defvar my-navi2ch-translate-url-regexp-list
'(("\\`http://203.192.159.253/" . "http://kanto.machi.to/")))
(defadvice navi2ch-article-select-current-link-url
(before my-translate-url-navi2ch-article-select-current-link-url activate)
(dolist (elt my-navi2ch-translate-url-regexp-list)
(catch :break
(when (string-match (car elt) url)
(setq url (replace-match (cdr elt) nil nil url))
(throw :break nil)))))
171 ：名無しさん＠お腹いっぱい。：04/02/29 18:20
>>170
問題は my-navi2ch-translate-url-regexp-list をどうやって管理するかだな。
問題は my-navi2ch-translate-url-regexp-list をどうやって管理するかだな。