トップページunix
1001コメント304KB

Navi2ch for Emacs (Part 12)

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。NGNG
Emacsen で動く 2ch 用ブラウザ、Navi2ch スレッド Part 12 です。

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

* よくある質問とその答え
http://navi2ch.sourceforge.net/doc/navi2ch/FAQ.html

* 前スレ Navi2ch for Emacs (Part 11)
http://pc.2ch.net/test/read.cgi/unix/1065246418/

* テストは以下で。このスレでテストするのはやめてちょ。
運用情報板 http://qb.2ch.net/operate/ の書き込みテストスレ
navi2chテスト板 http://jbbs.shitaraba.com/computer/2452/

過去スレなどは >>2-10 あたり。
0071名無しさん@お腹いっぱい。NGNG
66って、ここで FAQの内容を聞くよりもしょーもない内容なのか?
だったらスルーされるんだろうな。
0072名無しさん@お腹いっぱい。NGNG
>>70
(setq navi2ch-net-user-agent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)")
007369NGNG
それを init.el に入れておけばいいんだね
三きゅ!
0074名無しさん@お腹いっぱい。NGNG
User-Agent 変えても .dat にアクセスしてたらわかるような気がするのだが
0075名無しさん@お腹いっぱい。NGNG
>>66
env TERM=vt100 emacs -nw
007666NGNG
>>75
なるほど、そういう一般的なことが分かってないんだと、誤認されたんだな。
試しにやりましたが、何も変わりません。
メールなども奇麗に読めています。単純に Navi2chの Boardモードでしかおこりません。
どうなるか引用すると Boardモード表示での
1 最近、UNIX板が荒れてきてることない?? ( 391)
2 qmailいろいろ(4) ( 482)
3 おい、イブの夜にUnixいじくってるウンコども!2晩目 ( 66)
という「レス数のみだれ」をなんとかしたい、という質問でございます。
(なぜか Emacs 20.7では起こらなかったのですよ。)

ちなみに Borad モードではこうなんんだけど、Board Bookmark モードでは
1 =V Navi2ch for Emacs (Part 12) ( 75)
2 =C Navich for Emacs (Part 7) ( 206)
の様に、レス数はきれいに並びます。
0077名無しさん@お腹いっぱい。NGNG
>>76
( ´_ゝ`)フーン( ´_ゝ`)フーン( ´_ゝ`)フーン( ´_ゝ`)フーン
0078名無しさん@お腹いっぱい。NGNG
>>76
多分、Emacsの設定の問題だから、マジレス期待はむりぽ。
気分が悪くならないうちに諦めなされ。
007975NGNG
>>76
なるほど、そういうことでしたか。
2 バイト文字の幅が考慮されてないようですね。
手元の Emacs 21.2.1 on kterm では大丈夫でした。
0080名無しさん@お腹いっぱい。NGNG
板のキャッシュから特定のIDだけを抽出したいのですが、
そういう機能はまだないですよね?
「レスの検索」(「?」)でスレからID探せるのは知ってます。
0081名無しさん@お腹いっぱい。NGNG
ブックマークに入れているスレッドのデータを全てダウンロードしてくれる機能ってありますか?
後でゆっくりオフラインで見たいのですが・・・・・
0082名無しさん@お腹いっぱい。NGNG
mami
0083名無しさん@お腹いっぱい。NGNG
>>81
I
0084名無しさん@お腹いっぱい。NGNG
>>81 マニュアルくらいちゃんと読みましょう。
やり方は >>82
0085名無しさん@お腹いっぱい。NGNG
>>84
は?
0086名無しさん@お腹いっぱい。NGNG
>>84
ワロタ
0087名無しさん@お腹いっぱい。NGNG
iだと選択したスレッドだけしかダウンロードできませんよね?
ブックマークに入れてあるスレッドの全ての情報がほしいんです。
できますか?
0088名無しさん@お腹いっぱい。NGNG
>>87
だからブックマークモードで 'I' (大文字) を入力してみて
0089名無しさん@お腹いっぱい。NGNG
>>87
>>82 >>83
0090名無しさん@お腹いっぱい。NGNG
ブックマークモードにしないでIを実行してみたら・・・・
慌ててプロセスを殺しました。

アドバイスありがとうございました。
でも板をまたがることはできないのでしょうか?
0091名無しさん@お腹いっぱい。NGNG
? c a m a m i
0092名無しさん@お腹いっぱい。NGNG
>>90
グローバルブックマークに入れとけ。
0093名無しさん@お腹いっぱい。NGNG
>>90
> 慌ててプロセスを殺しました。
C-g でいいのでは。
M-x help-with-tutorial やっとけ。
0094名無しさん@お腹いっぱい。NGNG
勉強になりました。
0095名無しさん@お腹いっぱい。NGNG
navi2ch-bm-fetch-maybe-new-articles をしすぎて、キャッシュファイルの量が
大きくなりすぎているんだけど、
例えば、「履歴」に残っている (既読の) article 以外のキャッシュを全部消す、
手っ取り早い方法って、誰か考えてないですか?
0096名無しさん@お腹いっぱい。NGNG
g hist m a m A hoge ? o a m a m R
0097名無しさん@お腹いっぱい。NGNG
e とか M-e じゃだめなのかね
009895NGNG
>>96
オ〜ッ、すばやい答えをどうも。

でも、上の操作を頭の中でトレースしたけど、
? の次は o ではなく、c ですね。

>>97
そうすると、どうなるんですか?
navi2ch-article-textize-article よく知らないので
0099名無しさん@お腹いっぱい。NGNG
>>98
板モードで e だよ
010099NGNG
リストモードだった…_| ̄|○
010195NGNG
>>99
既読のキャッシュは全部残したいから、navi2ch-list-expire ではその望みがか
なえられそうにないですね。 (動作仕様を具体的に知らないので、もしかしたら
できるのかも知れないですが。)

あと、>>96
g hist m a m A hoge ? c a m a m R
の方法でも、考えたら、すでにアクセスできなくっている article のキャッシュ
まで消してしまうから、実行できないです。

なんとか、未読のキャッシュのみ削除できないものかなぁ...
0102名無しさん@お腹いっぱい。NGNG
そこまで細かい条件で expire したいなら自分でコード書けば?
0103名無しさん@お腹いっぱい。NGNG
>>101
未読ってナニを指してる?
010495NGNG
>>103
navi2ch-bm-fetch-maybe-new-articles で板一覧の全スレを fetch してしまっ
ても、一度も見てないスレのキャッシュ (← これが未読のキャッシュ) がたまっ
ている。これが嫌なので、消したい、ということでございまする。

>>102
その元気がちょっとないので... トホホッ
それとすでに同じことを考えてる人がいて、既出かと思ったもので。
0105名無しさん@お腹いっぱい。NGNG
navi2chって2chのシステムが変更になったときどうなるのですか?
知らず知らずに人が減ったなぁ・・・と古い掲示板を一人で見続けているなんて事にはなりませんか?
0106名無しさん@お腹いっぱい。NGNG
>>104
?caSs で U マークのスレをリージョン指定して mrmR じゃ駄目なんかな。
010795NGNG
>>106
それができればいいんですけど、
U マークのスレが、これまで一度も見ていないスレのキャッシュとは限らない、
ですよね。
C マークの後、navi2ch-bm-fetch-maybe-new-articles すると、U マークに変更
されることがあるはずですし。
0108名無しさん@お腹いっぱい。NGNG
見たことが無いってことは、スレの number プロパティがnil ってことだろ。
そんな条件での expire / 検索は無いから、自分でなんとかするか黙ってるか
のどっちかにしろって。
0109名無しさん@お腹いっぱい。NGNG
.filter ってファイルがあるかないかで
判定するようにすればいいんじゃないか?
違ってたらごめんなさい。

lisp の書き方知らないけど、find とか grep とか diff とかで
シェルスクリプトつくればできそうな気がする。
0110名無しさん@お腹いっぱい。NGNG
>>105
板移転の話なら >>3 >>36 あたりを参考に。
もっとデカいシステム変更の話なら、
まーなんとかするんじゃねーの?
0111ヽ(´ー`)ノNGNG
最新のリリース版入れて安心してたら、例のブラクラに引っかかった_| ̄|○
0112名無しさん@お腹いっぱい。NGNG
例のブラクラってなんだ?
0113ヽ(´ー`)ノNGNG
具体的にはコレ。
http://pc.2ch.net/test/read.cgi/unix/1074758741/56

しょんぼりしながら snapshot 入れますた(´・ω・`)
0114名無しさん@お腹いっぱい。NGNG
邦楽板が見れなくなった。
(-_-)ウツダ
0115名無しさん@お腹いっぱい。NGNG
お、確かに。法学板移転してるのかな?
0116名無しさん@お腹いっぱい。NGNG
あちこちの板が大移動してるようだな。
0117名無しさん@お腹いっぱい。NGNG
navi2chと関係ないだろが < 移転
各自ふつーのブラウザで 2chのトップから辿って
etc.txtで対処するなりしろよ。
0118名無しさん@お腹いっぱい。NGNG
>>117
見てて思うけど、お前の話しには発展性が見られないな。

それから 「...しろよ」って言い方は止めたほうがいいんでは。
作者様ならまだ許せるが。
0119118NGNG
作者って、navi2ch のな。
0120名無しさん@お腹いっぱい。NGNG
konosureha kitigaigaooi
0121名無しさん@お腹いっぱい。NGNG
>>117は天地創造の神
0122名無しさん@お腹いっぱい。NGNG
最近、ヘッドラインっていう板ができたけど、自動でこの板にあるスレを定期
的に取得する関数を作ったんですが、欲しい人いますか?
30分〜1時間間隔ぐらいで自動取得しとけば、過去のヘッドラインを辿れるよ
うになると思って作りました。まぁ、片手間で作ったものなので全然洗練されて
いないから、幾分長めの関数だけど。
0123名無しさん@お腹いっぱい。NGNG
コードの洗練は後でやればいいことだから、
とりあえずどんなのか体感してもらっては?
0124122NGNG
>>123
んじゃ、とりあえず載せてみます。

navi2ch が起動してなくても、
M-x my-navi2ch-headline-auto-check
で開始します。スレ自動取得後は、sleep-for するので、
解除したいときには C-g で。

(defun my-navi2ch-headline-auto-check ()
(interactive)
(unless (featurep 'navi2ch) (navi2ch))
(let ((target-board "bbynews")
(sleeping-minute 30))
(my-navi2ch-list-goto-board target-board)
(while t
(my-navi2ch-headline-check))))

;; 次に続く...
0125122NGNG
>>124 の続き

(defun my-navi2ch-headline-check ()
(sit-for 0)
(navi2ch-bm-mark-by-query "^[ ]*[0-9]+[ ][ %][^CU]")
(sit-for 0)
(navi2ch-bm-fetch-mark-article)
(message
(concat "Finishing checking at "
(format-time-string "%p%l:%M:%S" (current-time))
". Re-checking after " sleeping-minute " minute(s) ..." ))
(redraw-frame (selected-frame))
(sit-for 0)
(sleep-for (* sleeping-minute 60))
(navi2ch-board-sync))

;; 次に続く...
0126122NGNG
>>125 の続き

;; 以下、navi2ch-list-goto-board からのパクリ
(defun my-navi2ch-list-goto-board (target-board)
;;(interactive)
(let (alist board)
(setq alist (mapcar (lambda (x) (cons (cdr (assq 'id x)) x))
navi2ch-list-board-name-list))
(save-window-excursion
(setq board (cdr (assoc
;;(completing-read
;; (concat "board name"
;; (when default
;; (format "(%s)" (cdr (assq 'id default))))
;; ": ")
;; alist nil t)
target-board
alist))))
;;(setq board (or board
;; (assoc (cdr (assq 'id default)) alist)))
(when board
(when (eq (navi2ch-get-major-mode navi2ch-board-buffer-name)
'navi2ch-board-mode)
(navi2ch-board-save-info))
(navi2ch-list-select-board board))))

;; おしまい
0127名無しさん@お腹いっぱい。NGNG
開くスレの数の制限を、init.el に
(setq navi2ch-article-auto-expunge t)
(setq navi2ch-article-max-buffers 10)
と書いてやってるのですが、
この navi2ch-article-max-buffers の数字を一時的に変えることってできますか?

bookmark したスレのフィルター処理をまとめてしたくて、
m a m . とやったりする時に、1 とかに減らしたいんですけど。
init.el 書き換えて、navi2ch 起動しなおした方がいいですか?
0128名無しさん@お腹いっぱい。NGNG
>>127
*scratch* バッファで
(setq navi2ch-article-max-buffers 1) C-j とかじゃ駄目ですか?

もしくはこんなので m . の時だけ
navi2ch-article-max-buffers を 1 にするとか。(検証はしてません)

(defun my-navi2ch-bm-display-mark-article ()
(interactive)
(let ((navi2ch-article-max-buffers 1))
(navi2ch-bm-display-mark-article)))
0129名無しさん@お腹いっぱい。NGNG
>>127
ちなみになんで減らしたいの? 処理が早くなるのかな。
0130127NGNG
>>128 ありがとうございました。
my-navi2ch-bm-display-mark-article できました。
m a のあとで M-x my-navi2ch-bm-display-mark-article ですね。

数字変えて、名前変えた物も defun で用意して切替えられるようにしてみました。
# 数字を自分で入れられるようにできると良さそうですが。。lisp 勉強してみます。

*scratch* バッファの方でもやってみたけど、
ちゃんと動いてるのかどうか分かりません。一度できたような気がするのですが。
navi2ch-article-expunge-buffers の使い方とかも調べてみます。

>>129
! でいろいろ NG ワード増やしてたらだいぶ時間がかかるようになってしまって、
(bookmark をいくつか分けてあるのですが、)180 個くらいあるところで、
m a m . やって、だんだん遅くなって、下のようなメッセージが出て emacs が固まりました。
それで、過去スレ part 4 で制限できることを知って、
でも普段はそれほど必要ないのでかえられたらいいなと。
 bookmark ももっとちゃんと分類しなきゃなんですけど。

Warning: memory in use exceeds lisp pointer size
Killing some buffers may delay running out of memory.
However, certainly by the time you receive the 95% warning,
you should clean up, kill this Emacs, and start a new one.
0131128NGNG
>>130
> # 数字を自分で入れられるようにできると良さそうですが。。lisp 勉強してみます。
勉強中だと思いますがこんなのどうでしょう。

(defun my-navi2ch-bm-display-mark-article (&optional num)
(interactive "p")
(let ((navi2ch-article-max-buffers num))
(navi2ch-bm-display-mark-article)))
(define-key navi2ch-bm-mode-map "m." 'my-navi2ch-bm-display-mark-article)

C-u 数字 m . で navi2ch-bm-display-mark-article の値を変更できます。
m . だけなら navi2ch-bm-display-mark-article は 1 です。
0132名無しさん@お腹いっぱい。NGNG
書き込む時に空白を&nbsp;に変換してくれる、ってことできますか?
0133名無しさん@お腹いっぱい。NGNG
>>132
navi2ch-message-before-send-hook あたりでどうよ。
0134名無しさん@お腹いっぱい。NGNG
過去にその手のコードが貼られていたな
0135名無しさん@お腹いっぱい。NGNG
頭の悪い発言を色違いで表示できたら面白くないですか?
0136名無しさん@お腹いっぱい。NGNG
135が真っ赤に表示されました。
0137名無しさん@お腹いっぱい。NGNG
自分の出した記事を全部ログにとっておくことはできませんか?
info を見た限りでは出来なそうですけど。
0138名無しさん@お腹いっぱい。NGNG
>>137
出した記事って何ですか?
履歴? それとも 送信控え?
0139127NGNG
>>131 レスありがとうございます。短いコードだけどいろいろ分かった気がします。

Emacs Lisp の説明のサイトとかみながらいじってたらこんなのできました。
テスト,添削お願いします。

(defun my-navi2ch-change-article-max-buffers (numbers)
"navi2ch-article-max-buffers を変更し、越えていたら閉じる。"
(interactive "p")
(setq navi2ch-article-max-buffers numbers)
(navi2ch-article-expunge-buffers)
)
0140名無しさん@お腹いっぱい。NGNG
>>1-5 ってアンカーでエラー出るの漏れだけ?前はちゃんといけてた気がするんだが…

Emacs21,cvs 最新でつ。
0141名無しさん@お腹いっぱい。NGNG
>>140
w3m-async で emacs-w3m を使っているのに 200 レス。
0142名無しさん@お腹いっぱい。NGNG
>>141
もちっとヒントキボンヌ
0143名無しさん@お腹いっぱい。NGNG
書き込みで「もうちょっと待ってください」等のエラーが出た場合、message
ウィンドウが消えてしまいますが、どうやって復活させればいいんでしょうか?
0144名無しさん@お腹いっぱい。NGNG
C-c C-i とかいう話?
0145名無しさん@お腹いっぱい。NGNG
>>140
俺は無問題。どんなエラーが出るか書くべし。
0146名無しさん@お腹いっぱい。NGNG
>>143
FAQ 読んどけ。
0147名無しさん@お腹いっぱい。NGNG
navi2ch-logo.elを使ってみたいのですがどうやって
導入すればよいのかわかりません。
とりあえず~/.navi2chに放り込んでinit.elいじればよいのでしょうが
イマイチわからないのでご教示願います。クダ質ですいません。
0148147NGNG
と環境も書かずにすいません。emacs21でCDE上で動かしてます。
で,過去ログ漁っていると
(require 'navi2ch-logo)
(add-hook 'navi2ch-hook 'navi2ch-logo-init)
だけで逝けると書いてありますがnavi2ch-logoが見つからないと
怒られます。これはどこにあるのでしょうか?
ググっても見つかりませんでした・・・
0149名無しさん@お腹いっぱい。NGNG
インストールしろよ…
0150147NGNG
いや。navi2ch-logoってのがググっても見あたらないのです。
navi2ch-logo.elとかnavi2ch-logo.xpmってのはあるんですけど。
navi2ch-logo.elをrenameしてみたりしたのですが
それじゃ動きませんでした。
0151名無しさん@お腹いっぱい。NGNG
とりあえず>147は一般的なelispアプリケーションについて最低限の知識を得ることを薦める。
今の無知なままグダグダ書かれてもスレ汚しなだけ。
0152名無しさん@お腹いっぱい。NGNG
>>150
それはだね、navi2ch.el が load-path のとおった所に置かれてないから。
~/.navi2ch の下に置いてんだろ。
そこに load-path をとおすか(普通やらない)、load-path のとおった場所に
置きなさい。
0153147NGNG
elispとは何か。から調べてみます。
load-pathを調べて出てきたところにnavi2ch-logo.elを突っ込んだら
怒られなくなりました。
今度はスレを開こうとするとcovertが見つからないと出ます。
外部プログラムとはいうもののconvert .tar.gz XPM とかキーワード煎れても
全く見つかりません。あまりにもクダ質ですがどこにあるかご教示願います。
あるいは
0154名無しさん@お腹いっぱい。NGNG
>>153 ImageMagick をインスコしる!!
0155名無しさん@お腹いっぱい。NGNG
>154
もうやめとけって釣りだろ釣り
0156名無しさん@お腹いっぱい。NGNG
ところで 1.7.1 と cvs との機能差ってどれぐらいあるの?
(´-`)。oO(やはり cvs を追ったほうが良いのかのぅ…
0157名無しさん@お腹いっぱい。NGNG
↓らしいですよ。

Meadowについて語るスレ その4

From: [54] 名無しさん@お腹いっぱい。 <sage>
Date: 04/02/25 18:39 ID:JJn6VohN

>>34
> Meadow2.00pre1でnavi2chを使っています。

beta2 でもなるから、navi2ch か BBS の問題では。
0158名無しさん@お腹いっぱい。NGNG
Emacs 21.3 on FreeBSD、Meadow 1.15 だと平気だけどね
0159名無しさん@お腹いっぱい。NGNG
メッセージモードで書き込みのプレビューをaa-viewで見ることはできますか?
0160名無しさん@お腹いっぱい。NGNG
>>159
(setq navi2ch-mona-on-message-mode t) じゃ駄目か?
0161名無しさん@お腹いっぱい。NGNG
次スレに移行する時とかに navi2ch-mona-enable-article-list を
イチイチ設定するの面倒なんだけど、なんかイイ方法ない?
0162名無しさん@お腹いっぱい。NGNG
>>161 navi2ch-tugisure-hook を使う
0163名無しさん@お腹いっぱい。NGNG
>>161
navi2ch-mona.el:1.33 以降で
(add-to-list 'navi2ch-mona-disable-list
(lambda ()
(let ((case-fold-search t)
(subject (cdr (assq 'subject
navi2ch-article-current-article))))
(and (stringp subject)
(string-match "navi2ch" subject)))))
みたいなことをできるようにしてみた。
0164名無しさん@お腹いっぱい。NGNG
さっきcoしてきたやつ、configureでエラーがでまつ。
./configure: line 1137: syntax error near unexpected token `link-lisp,'
./configure: line 1137: ` AC_CONFIG_COMMANDS(link-lisp,'
0165名無しさん@お腹いっぱい。NGNG
>>164
俺は出ないよ.Emacs 21.3.50 を使ってる.
0166名無しさん@お腹いっぱい。NGNG
AC_CONFIG_COMMANDS なんてのが残ってるってことは、自分で autoconf
したのかな。
0167名無しさん@お腹いっぱい。NGNG
>>166
自分で作ったらしいファイルを消して
coし直しでOKでした。ありがとうございました。
0168名無しさん@お腹いっぱい。NGNG
まち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 で消したレスは平気なのですが。
0169名無しさん@お腹いっぱい。NGNG
パッと思い付くのは
(setq navi2ch-article-filter-list
'((lambda () (replace-string "http://203.192.159.253/" "http://kanto.machi.to/"))))
などとして、記事にフィルタをかけるとか。

後半に関しては、自分も面倒だと思うことがあるけど、どのみち引っ掛かっている
フィルタ条件を調整する必要があるだろうし。以前、この辺りの挙動を変える
オプションがあったような。統合されたときになくなったのかな。

単に hide されたレスを見たいだけのときは、F で一時的に filter を切ってから
行き来することがあるけどね。
0170名無しさん@お腹いっぱい。NGNG
こんなんでどうかな。

(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)))))
■ このスレッドは過去ログ倉庫に格納されています