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

Navigator for 2ch

[865:名無しさん＠お腹いっぱい。 (2001/07/06(金) 14:47)]
ボード一覧はちゃんと表示されるけど
そこで板を選択してもスレッドが表示されないのはどこが悪いんでしょうか

Opening input file: \244\275\........
から動かないです

[866:637 (2001/07/06(金) 16:41)]
あれから随分時間がたってしまいましたが...

とりあえず face についてなんとなく理解できたので、customize-face
でいろいろと試してみると、どうもASCIIはちゃんとプロポーショナルに
なるのに、日本語フォントだけ固定幅にされてるような感じです。

これって仕様なんですかね?

[867:名無しさん＠Ｅｍａｃｓ (2001/07/07(土) 04:39)]
> >>791
> > 以前読んだところから100以上レスがつくと
> > 以前読んだところがわからなくなる…
> navi2ch-article-exist-message-range を '(1 . 200) や nil にしてみるとか。

これ俺もお願いしたいです。初回読み込み時に number を save しないように
してらえると嬉しいです。
とりあえず自分のとこではこんな風にいじってます。

--- navi2ch-article.el.~1~ Mon Jul 2 03:49:58 2001
+++ navi2ch-article.el Fri Jul 6 23:13:25 2001
@@ -493,7 +493,7 @@
(navi2ch-article-insert-messages list range))
(setq navi2ch-article-message-list list)
(navi2ch-article-load-number)
- (navi2ch-article-save-info)
+ (navi2ch-article-save-info board article first)
(navi2ch-article-set-mode-line)
(run-hooks 'navi2ch-article-after-sync-hook)
list))))
@@ -693,9 +693,9 @@
(let ((num (cdr (assq 'number navi2ch-article-current-article))))
(navi2ch-article-goto-number (or num 1)))))

-(defun navi2ch-article-save-info (&optional board article)
+(defun navi2ch-article-save-info (&optional board article first)
(when (not navi2ch-article-from-file-p)
- (when navi2ch-article-message-list
+ (when (and navi2ch-article-message-list (not first))
(navi2ch-article-save-number))
(or board (setq board navi2ch-article-current-board))
(or article (setq article navi2ch-article-current-article))

その上で

(setq navi2ch-article-after-sync-hook
'(lambda ()
(let ((num (cdr (assq 'number navi2ch-article-current-article)))
(len (length navi2ch-article-message-list))
(range navi2ch-article-view-range))
(when (and num
(not (navi2ch-article-inside-range-p num range len))
(<= num (- len (cdr range))))
(let ((first (car range))
(last (+ 10 (- len num))))
(setq navi2ch-article-view-range (cons first last))
(navi2ch-article-redraw)
(navi2ch-article-goto-number num))))))

こんな hook をかけておくと、多い日も安心(?)なんですが。

あと、ネスケ使ってるんで、browse-url の引数に browse-url-new-window-p
を渡してもらえると嬉しかったりするんですが、これは browse-url のインター
フェイスがヘタれなような…

[868:名無しさん＠Ｅｍａｃｓ (2001/07/07(土) 23:43)]
>>867
(setq navi2ch-article-auto-range nil)
ではだめなりか?
違ってたらゴメソ

[869:名無しさん＠Ｅｍａｃｓ (2001/07/08(日) 00:42)]
どうもです。

>>868
> (setq navi2ch-article-auto-range nil)
> ではだめなりか?

えーと、こうすると全部のレスを展開してしまいますよね。でもそれだと、う
ちのマシンだとちょっとストレスかかっちゃうんですよ。特に 500 以上レス
がついてるスレだったりすると、しばらく待たされてしまうので。
なので、range はなるべく狭くしておきたいわけなんです。

[870:名無しさん＠お腹いっぱい。 (2001/07/08(日) 18:28)]
d でスレあぼーんしても対象スレが更新されたら
あぼーん解除になるのは仕様？

[871:名無しさん＠Ｅｍａｃｓ (2001/07/09(月) 16:23)]
> あと、ネスケ使ってるんで、browse-url の引数に browse-url-new-window-p
> を渡してもらえると嬉しかったりするんですが、これは browse-url のインター
> フェイスがヘタれなような…

elispの&optionalにはdefaultの値設定できないから、
browse-url-netscapeは仕様自体おかしいわな。

browse-url-netscape書き換えたよ。

mail-lib/browse-url.el:
<(defcustom browse-url-no-raise-p nil
< "なんだーかんだー"
< :type 'boolean
< :group 'browse-url)
> (if new-window '("-noraise"))
< (if browse-url-no-raise-p '("-noraise"))
> (if new-window ",new-window")
< (if browse-url-new-window-p ",new-window")

(setq browse-url-no-raise-p t)
(setq browse-url-new-window-p t)だ。

どうするのが良いかな〜。

[872:名無しさん＠お腹いっぱい。 (2001/07/09(月) 19:46)]
>>871
マジかよ…つーか、開発チームは今まで誰も気付いていなかったのだろうか…

[873:名無しさん＠Ｅｍａｃｓ (2001/07/09(月) 21:15)]
browse-url-*は、みんな(lambda (url &optinal new-window) ...)みたいなので、

(defun navi2ch-article-show-url ()
"url を表示して、その url を見るか kill ring にコピーする"
(interactive)
(let ((url (navi2ch-article-to-url navi2ch-article-current-board
navi2ch-article-current-article)))
(message "c)opy v)iew? URL: %s" url)
(let ((char (read-char)))
(cond ((eq char ?c) (funcall 'kill-new (navi2ch-article-show-url-subr)))
((eq char ?v) (funcall 'browse-url (navi2ch-article-show-url-subr)
browse-url-new-window-p))))))

でもいいけど、
;;; でも、browse-url.el内で閉じてないのでこれは美しくない。
"-noraise"は>>871のように書き換えないと無理だな。

elispが&optionalが渡されなかった時、unboundにするか、default設定できたら、
browse-url-*の仕様実現も可能なのだが…

[874:名無しさん＠お腹いっぱい。 (2001/07/09(月) 22:00)]
>>637
GNU emacs21 では fontset を手動で作ってやる必要があると思われ。
Linux ではこれで動いている。以下長くてスマソ。

;;
;; mona fontset を作る
;;
(if window-system
(progn
;; ↓次行末尾の -mona14 が fontset の名前になる
(new-fontset "-*-fixed-medium-r-normal--14-*-*-*-*-*-fontset-mona14"
'((ascii
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-iso8859-1")
(latin-iso8859-1
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-iso8859-1")
(katakana-jisx0201
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-jisx0201.1976-0")
(latin-jisx0201
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-jisx0201.1976-0")
(japanese-jisx0208-1978
. "-mona-gothic-medium-r-normal--14-110-75-75-p-120-jisx0208.1990-0")
(japanese-jisx0208
. "-mona-gothic-medium-r-normal--14-110-75-75-p-120-jisx0208.1990-0")
(japanese-jisx0212
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-jisx0201.1976-0")
))))

;;
;; navi2ch with monafont
;;

;; 上の fontset 名と末尾を合わせる
(setq navi2ch-mona-font "-*-*-*-*-normal--14-*-*-*-*-*-fontset-mona14")

(add-hook 'navi2ch-article-arrange-message-hook
'navi2ch-mona-arrange-message)
(setq navi2ch-mona-enable t)
(require 'navi2ch-mona)
(require 'navi2ch)

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