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

Navigator for 2ch

[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)

[875:名無しさん＠お腹いっぱい。 (2001/07/09(月) 22:52)]
list に表示されない板を見るにはどうすればいいの？
具体的には MLB実況板 http://green.jbbs.net/study/222/michidare.html
を見たいんです。

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