2ch専用ブラウザ「Navi2ch」

■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50

レス数が950を超えています。1000を超えると表示できなくなるよ。

2ch専用ブラウザ「Navi2ch」

1 ：名無しさん＠お腹いっぱい。 ：01/08/30 19:15 ID:sM1bIKlc: Emacsen上で動く2ch専用ブラウザ、navi2chのスレッドです。

作者の(not 1)さんのページ
* http://www.geocities.co.jp/SiliconValley-Oakland/7673/
rpm置き場
* http://members.tripod.co.jp/~navi2ch/
モナーフォント
* http://members.tripod.co.jp/s42335/mona/

過去ログ
part1: http://cocoa.2ch.net/unix/dat/996244120.dat
(html化されていない)
part2: http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=996244120
(スレタイトルが分かりにくいのでこっちに早々に移動)

>>2 インストールと起動方法
>>3-8 基本的な操作方法(READMEより)
>>9-10 ちょっとした情報
>>11-13 FAQ(前スレのまとめ)
354 ：352 ：01/10/02 01:49: 前々スレの833でした。

write from (not1)様
> C: ローカルにキャッシュがあるスレ
> V: 現在 navi2ch で buffer を持っている(表示されている)スレ
> U: "i" を押して更新された(buffer は無いかもしれない)スレ
> な感じになってます。
> U マークの付いたスレが一番未読スレに近いかな。
355 ：名無しさん＠お腹いっぱい。 ：01/10/02 04:38: スレを text に落とすのがちゃんと動くようになりました。
html に落とせるようになれば尚便利だと思うんですが。
356 ：名無しさん＠お腹いっぱい。 ：01/10/02 16:55: (add-hook 'navi2ch-list-mode-hook (lambda ()
(local-set-key "q" 'bury-buffer)
(local-set-key "Q" 'navi2ch-exit)))
357 ：mami ：01/10/02 17:05: >329
これって fix されてる?
うちも Xemacs じゃ見れないんで、
GNU Emacs20 入れちまったい。
(setq navi2ch-article-use-readcgi-hosts nil) しても
read.cgi 経由で読むようになったのね。
358 ：名無しさん＠お腹いっぱい。 ：01/10/02 20:32: fixも何もソースから入れればそんな問題は起こらない。
*.elc使いまわしてないか？
359 ：名無しさん＠お腹いっぱい。 ：01/10/02 22:47: >>358
Debianはインストールするとき必ずコンパイルするけど
やっぱりxemacsは使えない。
360 ：名無しさん＠お腹いっぱい。 ：01/10/02 23:26: >359 XEmacsが古いという説はどうかね。
361 ：mami ：01/10/02 23:30: >360
emacs-version は
"21.1 (patch 10) \"Capitol Reef\" XEmacs Lucid"
ですが何か?
362 ：名無しさん＠Ｅｍａｃｓ ：01/10/03 00:13: なんか，特定の板を開くと，"file is not updated" とか出て，
いつも同じタイトルが並んでて，更新する気配がなくなっちゃうんですけど．
理由わかります?
363 ：mami ：01/10/03 00:19: >362
特定の板って、どこよ。
閉鎖された板なんじゃネーノ？
364 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:20: >>361
板が移転した時の状況と思われ。そういう時は、
etc.txt で一時しのぎ
365 ：名無しさん＠Ｅｍａｃｓ ：01/10/03 00:20: 漫画坂です．
過去レスみたら，質問は出てるけど，答えは出てないみたい
366 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:27: >361
XEmacs 21.1 (patch 14) "Cuyahoga Valley" [Lucid]
だが何か? 君のはこれより新しいのかい?

>365 (setq navi2ch-list-bbstable-url "http://www.2ch.net/newbbsmenu.html")
367 ：mami ：01/10/03 00:28: navi2ch の U で見た URL と
ブラウザで見た URL が違うな。
~/.navi2ch/etc.txt に下の3行書いとけや。

漫画
http://choco.2ch.net/comic/
comic
368 ：mami ：01/10/03 00:30: >366
うちの方が古いな。
Xemacs のバージョン上げれば解決するのか?
369 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:32: >368 少なくともうちでは動いているから、バージョンが古いせいでないことはわかるね。
370 ：362 ：01/10/03 00:49: etc.txtに書いてもだめだった．
残念無念．
371 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:56: >370
366の式の行末でevalしてnavi2chを再起動させてみれば？
372 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:58: 再起動しなくても list-mode で s でよろしいよ。
373 ：名無しさん＠お腹いっぱい。 ：01/10/03 01:19: >>350
そんな感じで OK
でも、>>n がズレてくると思うので
セパレータだけ出力した方がいいかも
374 ：mami ：01/10/03 01:37: Xemacs 問題、追っかけてみた。

>333
str に "K" があるとマズいっぽい。
これを評価すると Wrong type argument: char-or-string-p, nil が出る。
(let ((str "K"))
(string-match "K" str)
(setq str (replace-match "" nil nil str))
str)

バックトレース。
Signaling: (wrong-type-argument char-or-string-p nil)
replace-match("" nil nil "K")
(setq str (replace-match "" nil nil str))
)
(let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str)
)
eval((let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str))
eval-interactive((let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str))
eval-last-sexp(t)
#<compiled-function nil "...(20)" [standard-output terpri eval-last-sexp t] 2 907969 nil>()
call-interactively(eval-print-last-sexp)

ごめん、これでいっぱいいっぱい。
375 ：mami ：01/10/03 01:39: 「str に」じゃなくて「match させる regexp に」か。
376 ：mami ：01/10/03 01:52: "K" じゃなくても "A" とかでも同様だった。
やっぱり Xemacs のバグ?

こんなパッチあてじゃダメすか?
これでうまくいくっぽいんだけど。

*** navi2ch-net.el.orig Wed Oct 3 01:48:52 2001
--- navi2ch-net.el Wed Oct 3 01:49:00 2001
***************
*** 316,322 ****
(when (string-match "^\$.+\$ \$.+\$\n" cont)
(setq state (match-string 1 cont))
(setq data (match-string 2 cont))
! (setq cont (replace-match "" nil nil cont)))
(when (and (string-match "\$OK\\|INCR\$" state)
(string-match "\$.+\$/\$.+\$K" data))
(setq cont-size (string-to-number (match-string 1 data))))
--- 316,322 ----
(when (string-match "^\$.+\$ \$.+\$\n" cont)
(setq state (match-string 1 cont))
(setq data (match-string 2 cont))
! (setq cont (replace-match "" t nil cont)))
(when (and (string-match "\$OK\\|INCR\$" state)
(string-match "\$.+\$/\$.+\$K" data))
(setq cont-size (string-to-number (match-string 1 data))))
377 ：mami ：01/10/03 02:07: >370
板一覧の「その他」のとこに「漫画」ってのが出るから、
そっちを見るべし。
つーか、>366 で解決か?
378 ：253 ：01/10/03 02:27: XEmacs20.4でも、同じエラーが出ましたね。
(ふだんは、21.1.14でエラーなし)

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "b" nil nil cont)))
=> "B"

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "" nil nil cont)))
=> (wrong-type-argument char-or-string-p nil)

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "" t nil cont)))
=> ""

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "" nil t cont)))

=> ""

というように、引数が ("" nil nil cont) の時だけ変！
とりあえず、(replace-match "" t nil cont) でいいんじゃない？
あるいは、(substring cont (match-end 0)) とか
＞ navi2ch-net.el

# ちなみにXEmacs20.4だと、書式の違いで menubar が使えない。
379 ：378 ：01/10/03 02:29: 253ってのはまちがいっす。

>>376
おもいっきりかぶってしもた。

欝～
380 ：名無しさん＠お腹いっぱい。 ：01/10/03 02:31: XEmcas21.4.4で上から"B","","",""だった。
バージョンに依存するのかな。うまくビルド出来てないとか。
381 ：(not 1) ：01/10/03 02:53: ・でてきた patch を大体当てた
・aadisplay の呼び出しで coding-system を指定するようにした
・巡回中 gunzip できなかったときに止まらないようにした

です。

http://www.geocities.co.jp/SiliconValley-Oakland/7673/lisp/navi2ch-011003.tar.gz

>>330
変えときます。

>>341
どうもです。patch をちょっと変えて変更しときました。

>>343
> 起動できるようになりましたが化けてしまいます。文字コードが EUC じゃないと
文字コードを指定するようにしてみました。どうでしょう？

> あとバージョンが古くないだろうなと navi2ch-version を調べたら "1.0"
> と出たので思わず苦笑。もうちょっとマシにした方がいいのでは >作者様
> ついでに変数だけでなく関数も作ってちょ。
了解です(^^;;

>>344
> navi2ch-board-view-logo が動作しないんで、とりあえずこの
navi2ch-net-download-logo で coding-system を指定してないのがいけなかったみた
いですね。直してときました。

>>345
navi2ch-boarg-get-url の方を直しちゃいました。
344 の方もそうなんですが、patch を頂いたのにすいません。

>>348,349
すばらしいです。当てときました。
>>349 の subject が nil の時の表示は navi2ch-bm-empty-subject を表示するように
変えました。
あと、普通に RET とかで開いたときにも同じ動作をするようにするのと、bookmark に
入り直さなくても subject が書き変るようなコードも書いてみませんか？:-)
382 ：(not 1) ：01/10/03 02:54: 続き

>>350
> filterってどう書けばいいんですか?
大体そんなんです。>>373 さんも書いてますけど、改行だけは残すようにしないと >>n
がずれちゃいます。
例えば、
mona
gikoneko
zonu
ってあったら
mona

zonu
と表示するようにしてください。
;; 俺も半分忘れかけてました。

>>355
> html に落とせるようになれば尚便利だと思うんですが。
html でも今のテキストでもあんまし変らなくないですか？
>>n を辿れるようにしたいって事でしょうか？

>>357
> (setq navi2ch-article-use-readcgi-hosts nil) しても
今は navi2ch-enable-readcgi を使うようになってます。
>>293 を参照。

>>374-376
>>376 の通りにしてみました。これで >>329 さんも大丈夫でしょうか？
でもうちの XEmacs (21.4 (patch 3) "Academic Rigor" [Lucid]) だとこの変更をしな
くても大丈夫なんですよね。
XEmacs 21.1 のバグなんでしょうかねぇ。
;; 但しうちの XEmacs は i586-pc-win32 なのでどっか違うのかもしれないですが
383 ：(not 1) ：01/10/03 03:00: 書き忘れ。
うちの Meadow だとたまーに gzip の展開に失敗するんですが、他の方はどうなんでしょ
うか？Windows 環境固有の問題なのかな。

あと、問題と言えば俺の文章を書くスピードの遅さですね。
上の二つのレスを書くのに30分以上かけてたりします・・・。
384 ：mami ：01/10/03 03:10: >382
どもです。
>329 はうちと同じ現象なんで、たぶんおっけーでしょう。
385 ：名無しさん＠Ｅｍａｃｓ ：01/10/03 04:36: >383
Meadow 1.15 pre1 ですけどまったくエラーなしでつかえてます。
386 ：名無しさん ：01/10/03 08:53: 誰か新機能を説明してくれませんか?
lispが読めない私には謎の言葉が飛び交っているようにしか見えません(泣
387 ：名無しさん＠お腹いっぱい。 ：01/10/03 14:21: >>376,>>382
こんなパッチがあたってました。< 'replace-match のエラー
ttp://list-archive.xemacs.org/xemacs-patches/200010/msg00009.html

このあと、2001:01:07にXEmacs21.1.13がリリースされてます。
#みなさん、なるべく最新の安定版を使いましょう。
388 ：名無しさん＠お腹いっぱい。 ：01/10/03 15:01: >From: [381] (not 1) <>
>Date: 01/10/03 02:53

> # $FreeBSD: ports/japanese/navi2ch-emacs20/Makefile,v 1.23 2001/10/02 18:13:33 sf Exp $

20分後にcommitされてる。。。
389 ：348 ：01/10/03 18:41: >381 (not 1)さん
いつもありがとうございます。俺のへたれコード直してもらえてうれしいです。
bookmark-fetch を "m i" に割り当てるのを忘れていたのでパッチです。

history 編集の方で、すでに閲覧しているスレに関して動作がおかしい
ことに気が付いたので、後日修正したいと思います。

--- navi2ch-bookmark.el.~1~ Tue Oct 2 01:17:38 2001
+++ navi2ch-bookmark.el Wed Oct 3 18:25:41 2001
@@ -35,6 +35,7 @@
(copy-keymap navi2ch-bm-mode-map))
;; (define-key navi2ch-bookmark-mode-map "q" 'navi2ch-bookmark-exit)
(define-key navi2ch-bookmark-mode-map "i" 'navi2ch-bookmark-fetch-article)
+ (define-key navi2ch-bookmark-mode-map "mi" 'navi2ch-bookmark-fetch-mark-article)
(define-key navi2ch-bookmark-mode-map "d" 'navi2ch-bookmark-delete)
(define-key navi2ch-bookmark-mode-map "\C-k" 'navi2ch-bookmark-cut)
(define-key navi2ch-bookmark-mode-map "\C-y" 'navi2ch-bookmark-yank)
@@ -335,6 +336,10 @@
(navi2ch-bookmark-add-subr
navi2ch-bookmark-current-bookmark-id board article))))
state))
+
+(defun navi2ch-bookmark-fetch-mark-article ()
+ (interactive)
+ (navi2ch-bm-exec-subr 'navi2ch-bookmark-fetch-article))

(provide 'navi2ch-bookmark)
390 ：一ユーザ ：01/10/03 19:24: こんにちは，いきなりしつもんなのですが，
navi2ch で，JBBSを見ることってできます?
見れるとすれば，どのように設定したらよいのですか?
識者の方教えてくださいまし．
391 ：mami ：01/10/03 19:40: >390
おれも知りたい。
.dat 直読みができないから前はだめだったけど、
今は read.cgi に対応してるから可能性あり?
392 ：遅れた…鬱だ… ：01/10/03 21:12: 乗り遅れました(-＿-)
http://navi2ch.tripod.co.jp/navi2ch-011003-1.noarch.rpm
http://navi2ch.tripod.co.jp/navi2ch-011003-1.src.rpm
393 ：(not 1) ：01/10/03 22:17: >>384
> >329 はうちと同じ現象なんで、たぶんおっけーでしょう。
了解。

>>385
> Meadow 1.15 pre1 ですけどまったくエラーなしでつかえてます。
んー、じゃあうちだけなんですかねぇ。
ただ、起きないときは全然起きないのが悩ましいところです。

>>386
> 誰か新機能を説明してくれませんか?
新機能といえるのは、 history でも bookmark みたいに C-k C-y で編集できるように
なった事くらいです。

>>389
> bookmark-fetch を "m i" に割り当てるのを忘れていたのでパッチです。
あてときます。

> history 編集の方で、すでに閲覧しているスレに関して動作がおかしい
> ことに気が付いたので、後日修正したいと思います。
ん、実はその辺の動作を全然見ていないのでした。
よろしくお願いしますです。

>>390,391
まちBBSも raw mode でスレを取ってこれるんですか？
だったら結構簡単に対応できちゃうと思います。
後でちょっと試してみますね。
394 ：(not 1) ：01/10/03 22:30: >>393
> まちBBSも raw mode でスレを取ってこれるんですか？
勘違い。JBBS ですね(^^;
395 ：名無しさん＠お腹いっぱい。 ：01/10/03 22:54: >>376
> ! (setq cont (replace-match "" t nil cont)))

Debian stableな(emacs-version)→
"21.1 (patch 10) \"Capitol Reef\" XEmacs Lucid"
だが、上のpatchで直った。よって報告。さげさげ。
396 ：名無しさん＠お腹いっぱい。 ：01/10/03 23:03: >>394
offlaw.cgiを使うのでは？
例: http://green.jbbs.net/computer/bbs/offlaw.cgi?BBS=479&KEY=1000348745
397 ：名無しさん＠お腹いっぱい。 ：01/10/03 23:30: >>328
> >>324
> これもうちだと大丈夫だったりします。
> light だと下線は付くんですよね？

すんません、色は着いていたようです。SkyBlue と LightSkyBlue
との違いに気付かなかっただけです(w でも、これは light な
設定に較べて色の違いが微妙すぎる気がします。デフォルトの値
としてはどんなもんでしょうか… 俺は customize-face で Pink
にしちゃいましたが(w

ここのところニュース速報版に書き込むことができないんですが、
他の人はどうでしょうか?
398 ：(not 1) ：01/10/03 23:42: >>396
offlaw.cgi って何行目からとかって指定できますか？
さっき試したら、終りの行数は指定できたんですけどで始まりの行数は指定できませんでした。
navi2ch 的には始まりの行数が指定できないとちょっとつらいです。
;; hotzonu とかのソースを見ればのってるのかな。
399 ：一ユーザ ：01/10/04 00:26: Cなら書けるんだけどなー．
Lispはすぐ忘れる．
JBBS対応きぼん．．．
400 ：396 ：01/10/04 02:50: >>398
＞offlaw.cgi って何行目からとかって指定できますか？
できるかどうかわかりません。
差分は read.cgi の html 出力を dat 形式に変換するしかないかも。

ホットゾヌでは JBBS の場合 read.cgi 経由みたいです。
401 ：329 ：01/10/04 03:37: >>393
私だけできなかったらどうしようと最新版をインストール。
で、できました・・・(感涙)。

10月3日版をインストールすると何の問題もなく表示されました。

ありがとうございました。

心配してくださったみなさんにもありがとうございました。

ちなみにうちのバージョンはXEmacs21.1.8です。
402 ：名無しさん＠お腹いっぱい。 ：01/10/04 10:20: 些細な事だが、

>>395
> だが、上のpatchで直った。よって報告。さげさげ。

「直った」は失礼か。「回避できた」に訂正。さげもげ。
403 ：名無しさん＠お腹いっぱい。 ：01/10/04 21:36: Emacs21 で動かしてみました。ひとつ気付いたのは、
レスの区切りのアンダーラインが一つになっている
ことです。しばらくすれば読み慣れはしますが。
404 ：名無しさん＠お腹いっぱい。 ：01/10/05 17:14: >>403
俺もだ。慣れたけど。
405 ：名無しさん＠お腹いっぱい。 ：01/10/05 21:15: 看板を表示する機能とかあります？
406 ：名無しさん＠お腹いっぱい。 ：01/10/05 22:09: >405
l runs `navi2ch-board-view-logo'

`navi2ch-board-view-logo' is an interactive compiled Lisp function
-- loaded from "navi2ch-board"
(navi2ch-board-view-logo)

Documentation:
その板のロゴを見る
407 ：名無しさん＠お腹いっぱい。 ：01/10/06 07:06: ブラクラだの広告だののfilterとして、

#/usr/bin/perl
while(<>) {
$_ = "\n" if /gikoneko/;
$_ = "\n" if (m!oss.jodi.org!);
$_ = "\n" if (m!cttpopnet.syo-ten.com!);
$_ = "\n" if (m!bbx.kidd.jp!);
$_ = "\n" if (m!www.url.co.jp!);
(略)
print;
}

ってなスクリプトを書いて

(setq navi2ch-article-filter-list
'(("perl" "/home/nanasi/bin/navi2ch-filter.pl")))

して、うっとうしいのをどんどん消しているつもりなんですが、
この書き方でずらずら書いてるのは面倒。
もっと簡単に書けると思うんですが、どうしたらいいっすか?
ファイルの一部にその文字列だけ書けばOKってな感じにしたいです。
こりゃnavi2chの質問じゃなくてperlですね。
408 ：名無しさん＠お腹いっぱい。 ：01/10/06 08:24: navi2ch+emacs-w3mつかっててなかなかいい感じなんだけど、
.jpgへのリンクはbrowse-urlにまかせずに
とってきてxliあたりで表示するようになんないかな。
409 ：すんでのところで ：01/10/06 10:56: >>408
こんなんでどう?

begin 644 browse-image.patch.gz
M'XL("$9?OCL``V)R;W=S92UI;6%G92YP871C:`#%55&/FT80?K9_Q11%-3B'
M96.?<_$]5">UJ5I5:=4DN@?'4M8PP+:PBW:7<^_?=W8!F_B..E(B%2$$R^S,
M?#/??C.=3D&P!Q[%>?C`E)YA,9.*9Z-WS,#OL0%8PV*^62PVRP5$\_EB'(;A
M^8YSXYO-\KHQGGY^V6]8KE]=+5]%X!:L-[=P$P&]AV.@:V,>*X3)7LH"F6B6
M,B7K"B9=9*8,CPL,Z.?X)?@)IG&MC2R/J>V5/&@,:U6$O&09AI62F6)DP`O:
M`>!-W^=(YB6"3,'0>[-%06=9:TQ@_PB?AGQ.9IYSU>;KQ[GD,8(VBHL,_%@*
M;>@GR\![*P5Z-G80-%N&\+S\4CQ,9;H'Y@X*3M$(2A->`_G@PB8B*\,I%4BE
M&L;2U><<D\(*J;M^"ZI!<Z>RND1AO"]``W![>PLE:DU1@!C#V;Y`3>O/H&S-
M0BJ]"FUO7/-]GH*?4AHU90.3?[!DL0X<F;J-M>'%`'?GUYO%ZZ?<;7><<_=Z
MLUH,<S=:SZ^B]>N&NS!PC=N'Q5>+9SH(/CV"\7<6VFG5?</QQ=(G`=_?RUHD
MA+K7,(&'\,!%(@]A%<#0#W(SNK@_+5@VY,+]HVL,31<A5=0J5F'Q%%Q5FY`Y
M!OK<8$E]+FH$MQ*XLKO*W=R<#OE75ZZM#Z/GQ4-_"^Y;-Z5M+Y_.0\OKL&0F
MSL'[.-O^^M=N^T>UV_Z$NQ^V/V>[%QZT,4?PC#E9;'_AN^V;])*E=?I6['H^
M@Z#+QQ]"T-BU9K[I\X5`29(MU0=U9`]\.PI]$PXY#'0/=K:%:_L+WS>*Q0HX
M>6IJ0"0\+0'/A%28N#_>G?[;J?C]_?U1R9T$MB(^*'A@)!22)?#AS]]FY.M'
M3%E=&+ML_=$J,&4+`,27/9**(E22"S,#N*,S@3J'6%:/[1@A#UUXKDF,20LI
M`U)'+H#9[.U\B4GGX,!-3IZTYB2(P)*$MZA9*Z^VLT_SML(_H=CO<_)/-ZO(
M846R:M!)?!N=_.<\SLE%(L7$3H:44F+6I+2I*BPE[2"*&"4+4GUWJ`@6*A8;
M_H!]KH6]=9L`>%26#7@M-9U`"VDN'L0CDU$I2I7&XI->^9='5'",2]B+1YBX
M*H==72WM8W8Y&7>VW`CMJ<*E37U;&Q[_2W[<C/:=+#;G_>NU]+FIM(J65ZMH
MW4VET9FFG/Q--**PB$\I2Z:2,*Z5(KXU7R[)D?^YA6;4>"Y2&70HZ"Q321YX
M@J>Y;V=J,/X(U%8B>D']!.J#+1$1+N4%NE&P6D57J]5U-PK^[W3_!89I(/$#
#"P``
`
end

URLを引数にとらないviewerはこんなwrapping script用意して。
#! /bin/sh
if [ $# -ne 1 ]; then echo Usage: $0 URL 2>&1; exit 1; fi
tmpfile=/tmp/tt$$
wget url -O $tmpfile
xv $tmpfile
rm $tmpfile
410 ：名無しさん＠お腹いっぱい。 ：01/10/06 11:44: >>407 こんなのどう？

#!/usr/bin/perl

$listfile = "$ENV{'HOME'}/.navi2ch_killlist";

$listfile = shift(@ARGV) if( -f $ARGV[0]);

open(LIST, "<$listfile") || die("1<><>01/01/01 00:00<>can not open kill list.<>\n");
while(<LIST>){
chomp;
($category, $uri) = split(/\s/, $_);
next if($category eq '' || $uri eq '');
$list{$uri} = $category;
}
close(LIST);

while(<>){
foreach $uri (keys(%list)) {
last if(s/$uri/DELETED($list{$uri}: $uri)/);
}
print;
}

インデント崩れるかな。
で、~/.navi2ch_killlist って file に、

SPAM http://www1.freehost.ne.jp/~gikoneko/onnanoko.html
グロ http://duffus.ops.uunet.co.za/~nic/gallery/splat.jpg
グロ http://vagina.rotten.com/motorcycle/motorcycle.jpg

とか、書いておく。

板違いにてsage。
411 ：410 ：01/10/06 11:49: >>410 下から三行目、

s/$uri/DELETED($list{$uri}: $uri)/g;

とかでないと複数書かれた時に対処できなかった。
板違いの上に間違えた。鬱だ。逝ってくる。
412 ：すんでのところで ：01/10/06 13:05: >>409
あ、書き忘れた。
navi2ch-browse-url-image-program
navi2ch-browse-url-image-args
を設定してちょ。

navi2ch-article-*じゃないけど、navi2ch-article :groupに入れちゃった…
413 ：遅レス ：01/10/06 21:16: >>406
thanks.
414 ：348 ：01/10/07 03:05: >389 history 編集の動作がおかしい

delq の使い方を間違っていました。おはずかしい。

--- navi2ch-history.el.~1~ Sun Oct 7 03:01:37 2001
+++ navi2ch-history.el Sun Oct 7 03:01:36 2001
@@ -164,7 +164,7 @@
(if item
(let ((pair (assoc item navi2ch-history-alist))
(buffer-read-only nil))
- (delq pair navi2ch-history-alist)
+ (setq navi2ch-history-alist (delq pair navi2ch-history-alist))
(delete-region (point) (save-excursion (forward-line) (point)))
(navi2ch-bm-renumber))
(message "Can't select this line!")))))
415 ：名無しさん＠お腹いっぱい。 ：01/10/07 10:24: 現在 navi2ch は geocities で公開されてますが、
geocities に置かれたコンテンツは実質的に Yahoo! のものになってしまう
みたいです。どこかよそに移した方がいいのかも?

ここにもうちょっと詳しい話があります。
http://slashdot.jp/article.pl?sid=01/10/06/2048212&mode=thread&threshold=
416 ：名無しさん＠お腹いっぱい。 ：01/10/07 13:41: >>409
ごっつさんきゅ。すげーいい。

とりあえずImageMagikで

(setq navi2ch-browse-url-image-program "display")

しておいたけど、displayは"q"一発じゃ終了してくれないのが
ちょっとアレだ。他にURLを直接読めるイメージビューワーないかな。

>>410
これもサンクス。

このふたつ組みあわせると画像リンクもたのしめる。
417 ：名無しさん＠ＸＥｍａｃｓ ：01/10/07 17:56: >416
^Q なんだよね… > display
なんか最近 navi2ch なキーバインドに慣れすぎて、 Mew とかで混乱
しちゃうよ(w
418 ：名無しさん＠お腹いっぱい。 ：01/10/07 18:54: >>417
さんく。知らなかったよ。世界には知らんことがたくさんある。
419 ：名無しさん＠お腹いっぱい。 ：01/10/07 19:00: >>407 のように、ただ消すだけじゃなくて
マークする方がエレガントだってのにも気づいたよ。
さんきゅ。
420 ：名無しさん＠お腹いっぱい。 ：01/10/07 20:48: eeがq一発で終了じゃなかったっけ？
>417
wlのキーバインドをnavi2ch風に改造してます。
1で全画面。jkで上下スクロールとか。
421 ：名無しさん＠お腹いっぱい。 ：01/10/07 23:13: navi2ch の色んな mode で j、k に自分で
上下移動関係のコマンドに割当てている。
オリジナルのちょっと甘いからね。
422 ：ななし ：01/10/08 07:20: Solaris8(x86) + xemacs21.1.14 で、10./3 の Navi2ch を
gmake したのですが、エラーが出て作れません。
エラーは、「timezone の load に失敗しました」というものです。
（今、Windows からなので、きちんとしたエラーが書けません、スマソ）

setenv TZ JST-9 を設定したのですが、変わりませんでした。
FreeBSD の時は、こんなこと無かったと思うのですが、なんででしょうか・・・

何かアドバイス、よろしくお願いします。
423 ：名無しさん＠お腹いっぱい。 ：01/10/08 10:13: >>422
メッセージそのままだと思いますが… navi2ch-{net,util}.el
で (require 'timezone) としてますので、そこでエラーが
出ているのでしょう。XEmacs は、ちゃんとインストールされて
ますか? timezone.{el,elc} は、
.../xemacs-packages/lisp/xemacs-base/ 以下にあるはずです。
424 ：名無しさん＠お腹いっぱい。 ：01/10/08 19:30: >421
それ見せてよ。
できればパッチの形で。
425 ：名無しさん＠お腹いっぱい。 ：01/10/08 19:39: 本体を直接書換えてる人は少ないと思うが
426 ：名無しさん＠お腹いっぱい。 ：01/10/09 00:27: >>424
425 が言うように、直接書き換えるのではなくキーの再割当て
をしているだけですよ。
427 ：名無しさん＠お腹いっぱい。 ：01/10/09 07:56: >426
いや、わかってるけど、
パッチならnavi2ch本体に取り込みやすいじゃん。
つーか、どう割り当ててるか教えてよ。
428 ：名無しさん＠お腹いっぱい。 ：01/10/09 19:14: >>427
単に泥臭くやってるだけなんだけど。

(define-key navi2ch-list-mode-map "j" 'next-line)
(define-key navi2ch-list-mode-map "k" 'previous-line)
(define-key navi2ch-board-mode-map "j" 'next-line)
(define-key navi2ch-board-mode-map "k" 'previous-line)
(define-key navi2ch-article-mode-map "j" 'navi2ch-article-next-message)
(define-key navi2ch-article-mode-map "k" 'navi2ch-article-previous-message)
(define-key navi2ch-bookmark-mode-map "j" 'next-line)
(define-key navi2ch-bookmark-mode-map "k" 'previous-line)
(define-key navi2ch-history-mode-map "j" 'next-line)
(define-key navi2ch-history-mode-map "k" 'previous-line)
(define-key navi2ch-search-mode-map "j" 'next-line)
(define-key navi2ch-search-mode-map "k" 'previous-line)

navi2ch-article-mode-map では、オリジナルは navi2ch-article-few-scroll-{up,down}
に割当ているけど、自分の好みに合わせている。というか、オリジナルで
j、k に何にも割当てられていない時からこうしている。

以前過去スレで作者が書いたコードを流用すれば、もっとすっきりする。
こっちの方がいいかもしれない。

(defun navi2ch-bm-define-key (key func)
(dolist (map '(navi2ch-board-mode-map
navi2ch-history-mode-map
navi2ch-bookmark-mode-map
navi2ch-search-mode-map))
(define-key (symbol-value map) key func)))
(navi2ch-bm-define-key "j" 'navi2ch-bm-next-line)
(navi2ch-bm-define-key "k" 'navi2ch-bm-previous-line)
(define-key navi2ch-list-mode-map "j" 'next-line)
(define-key navi2ch-list-mode-map "k" 'previous-line)

何にせよ、趣味の問題だからオリジナルで割当てる必要はないと思う。
429 ：名無しさん＠お腹いっぱい。 ：01/10/09 20:47: 今だ！429番ゲットォォォォォ
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ズザーーーーーッ

このようなAAをうまいこと保存したり貼り付けたりするような
機能って出来ませんか？
430 ：　：01/10/09 21:02: ギコペ
431 ：名無しさん＠お腹いっぱい。 ：01/10/09 21:47: C-x r s でレジスタに保持。
432 ：すんでのところで ：01/10/10 01:34: >>429
> このようなAAをうまいこと保存したり貼り付けたりするような
> 機能って出来ませんか？

Interface考えてくれや。AAのコピベはやらんから、どんな形態が便利か分からん。
そのままcodingすると約束は出来ないが。
433 ：すんでのところで ：01/10/10 01:52: ん？abbrev使えば何も特別なもの必要ないか？

abbrevの使い方:

M-x edit-abbrevs

(global-abbrev-table)で、

"sliding-giko" 0 "￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ズザーーーーーッ"

と書き、\C-c\C-cで登録。

M-x abbrev-modeしたbufferで、sliding-giko<SPACE>と打つと、

￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ズザーーーーーッ

この通り。
434 ：すんでのところで ：01/10/10 02:02: あ、何回もすまん。保存するの忘れんでくれよ。

~/.emacsに
(quietly-read-abbrev-file)
(setq save-abbrev t)
435 ：とおりすがりこ ：01/10/10 15:48: おまけ。
(add-hook 'navi2ch-message-mode-hook '(lambda () (abbrev-mode t)))
も、~/.emacs にあるとうれしいかも。
436 ：名無しさん＠お腹いっぱい。 ：01/10/10 22:57: kterm上のemacs -nwでnavi2chを使うとレスの間の
――――――― <-これ
区切の線が表示されません。

直せますか？
437 ：mami ：01/10/11 03:47: >>436
XEmacs でも表示されません。
つーか、こないだ GNU Emacs20 使うまで
区切り線が出るなんてこと知らなかった。
438 ：名無しさん＠お腹いっぱい。 ：01/10/11 09:58: 区切り線なんて無いほうが本物の 2ch っぽくてよくなくな～い？
439 ：名無しさん＠お腹いっぱい。 ：01/10/11 10:18: 白黒画面で見てるとどこから次のレスだかわからなくなってしまうんです。
特にレスの長い時には
440 ：名無しさん＠お腹いっぱい。 ：01/10/11 18:32: Emacs-21 だとコンソールでも色が着いて良い感じ。
441 ：すんでのところで ：01/10/12 00:09: 空行にput-text-propertyすると行全体にpropがつくのと、
全く付かないの、というemacsのfaceの差、ということみたいなので、

navi2ch-article.elを

(navi2ch-article-arrange-message))))
(let ((p (point)))
! (let ((w (frame-width)))
! (while (> w 1)
! (insert " ")
! (setq w (- w 1))))
(put-text-property p (point) 'face 'underline))
(insert "\n"))

でいいけど、monafont使っていると、(frame-width)では端までunderlineが伸びないね。
442 ：すんでのところで ：01/10/12 00:12: あ、navi2ch-article.elのnavi2ch-article-insert-messageね。

defsubst(Cでいうところのinline qualifier)になっているから、
この関数使っているnavi2ch-article-insert-messagesもdefunし直してね。
443 ：名無しさん＠お腹いっぱい。 ：01/10/12 10:07: navi2ch-board-view-logo
っていうのは、2chの各板のロゴを見る
グレートな機能でしょうか？
もし、そうなら使いたいんですけど、
ESC-x navi2ch-board-view-logo [ret]
としても、Wrong type argument string type nil
といわれます。

後、ESC-x navi2ch-board-view-logo
とうつのも、面倒なので、.emacsで
キーバインドしたいのですが、こういうのってどうやってするのでしょうか？
444 ：名無しさん＠お腹いっぱい。 ：01/10/12 10:12: どっかlispを軽く学べるページないすか？
445 ：名無しさん＠お腹いっぱい。 ：01/10/12 10:14: history機能って何ですか？
どう設定するのですか？
446 ：すんでのところで ：01/10/12 10:28: >>443
> ESC-x navi2ch-board-view-logo [ret]
> としても、Wrong type argument string type nil
> といわれます。

SETTING.TXTの取得に失敗してますね。

contentが、
"
gunzip: stdin: invalid compressed data--format violated
"
になっています。よって、logoのURLが取得出来ず失敗します。
何故、いつからこうなったのかは不明です。
447 ：すんでのところで ：01/10/12 10:31: >>444
> どっかlispを軽く学べるページないすか？

ftp://ftp.ascii.co.jp/pub/GNU/emacs-lisp-intro-jp.texi.gz

を、texi2htmlにかけて見る、ではどうですか?
書籍版もASCIIから出てますよ。
448 ：名無しさん＠お腹いっぱい。 ：01/10/12 10:41: >>447
ありがとう。軽く勉強する位でやってみます。

ところで、NAVI2CHの
履歴ってのがhistoryですよね。
そのボードネームって何になりますか？

板一覧でgって押して、unixとすればunix板に行きますが、
履歴にいくには何をおせばいいのでしょう？
historyを押して見たら、日本史板にいっちゃいました
449 ：名無しさん＠お腹いっぱい。 ：01/10/12 10:58: >>443
> 後、ESC-x navi2ch-board-view-logo
> とうつのも、面倒なので、.emacsで
> キーバインドしたいのですが、こういうのってどうやってするのでしょうか？

navi2ch-board-mode では l に割当てられています。見たい時には、
実はブックマークに居たりするんですが(w

>>448
> 履歴ってのがhistoryですよね。
> そのボードネームって何になりますか？

hist です。ちなみに、

表示スレ一覧 articles
検索一覧 search

となっています。
450 ：名無しさん＠お腹いっぱい。 ：01/10/12 12:22: sigefumi@cts-net.ne.jp
piko-@jp-t.ne.jp
rukia@hkg.odn.ne.jp
fb4t-fjt@asahi-net.or.jp
tune@yellow.plala.or.jp
blackwidow@anet.ne.jp
zbf46927@boat.zero.ad.jp
ccv21590@hkg.odn.ne.jp
kengo@d9.dion.ne.jp
aokin_doll@anet.ne.jp
siosai@itpmail.itp.ne.jp
natamoky@zb4.so-net.ne.jp
shikata@nyc.odn.ne.jp
mrk3@f4.dion.ne.jp
yasuhumi-i@tokai.or.jp
whxd777@docomo.ne.jp
you1991@muj.biglobe.ne.jp
yoshiteru-s@docomo.ne.jp
ye183@viola.ocn.ne.jp
nyao@pop02.odn.ne.jp
xxxx777xxxx777@docomo.ne.jp
ye183@viola.ocn.ne.jp
matsuda@f-maria.co.jp
yukinon@poppy.ne.jp
cds09690@par.odn.ne.jp
kasugan.@docomo.ne.jp
0507s-0920y@hcc5.bai.ne.jp

dannda
451 ：名無しさん＠お腹いっぱい。 ：01/10/12 14:12: >>439
> 白黒画面で見てるとどこから次のレスだかわからなくなってしまうんです。

たしかにそうですね。
となると、区切り線はアンダーラインを使用するのではなく、
「----」等がいいかも知れませんね。
452 ：　：01/10/12 18:59: vine linux 2.1で
windows98上で動作するBlackＪｕｍｂｏＤｏｇという
プロクシ－サーバーソフトを介して
ネットに接続しているのですが
emacsにnavi2chと打つと
now connectingと表示されたまま止まってしまいます.。
unix板の皆様どうか私をお救いください.
453 ：すんでのところで ：01/10/12 19:26: >>451
> 「----」等がいいかも知れませんね。

と私も思い、>>441を送ったすぐ後に、

(navi2ch-article-arrange-message))))
!; (let ((p (point)))
(let ((w (frame-width)))
(while (> w 1)
! (insert "-")
(setq w (- w 1))))
!; (put-text-property p (point) 'face 'underline))
(insert "\n"))

として使っています。自分としてはこれでいいかんじ

掲示板に戻る全部前100 次100 最新50

read.cgi ver5.26+ (01/10/21-)