■掲示板に戻る■ 1- 最新10

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

Navigator for 2ch

[861:bg-dark2 (2001/07/06(金) 01:28)]

(defface navi2ch-bm-mark-face
- '((((class color) (background light)) (:foreground "Tomato3")))
+ '((((class color) (background light)) (:foreground "Tomato3"))
+ (((class color) (background dark)) (:foreground "tomato")))
"マークしたスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-updated-unread-face
- '((((class color) (background light)) (:foreground "DarkOliveGreen" :bold t)))
+ '((((class color) (background light)) (:foreground "DarkOliveGreen" :bold t))
+ (((class color) (background dark)) (:foreground "GreenYellow" :bold t)))
"レスがあった読んでないスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-updated-view-face
- '((((class color) (background light)) (:foreground "FireBrick" :bold t)))
+ '((((class color) (background light)) (:foreground "FireBrick" :bold t))
+ (((class color) (background dark)) (:foreground "PaleGreen" :bold t)))
"レスがあった表示しているスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-updated-cache-face
- '((((class color) (background light)) (:foreground "Navy" :bold t)))
+ '((((class color) (background light)) (:foreground "Navy" :bold t))
+ (((class color) (background dark)) (:foreground "SkyBlue" :bold t)))
"レスがあった読んだ事があるスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-updated-update-face
- '((((class color) (background light)) (:foreground "SaddleBrown" :bold t)))
+ '((((class color) (background light)) (:foreground "SaddleBrown" :bold t))
+ (((class color) (background dark)) (:foreground "LightSkyBlue" :bold t)))
"レスがあった更新したスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-updated-mark-face
- '((((class color) (background light)) (:foreground "Tomato3" :bold t)))
+ '((((class color) (background light)) (:foreground "Tomato3" :bold t))
+ (((class color) (background dark)) (:foreground "tomato" :bold t)))
"レスがあったマークしたスレの face"
:group 'navi2ch-face)


[862:bg-dark3 (2001/07/06(金) 01:28)]
(defface navi2ch-article-header-face
- '((((class color) (background light)) (:foreground "Gray30" :bold t)))
+ '((((class color) (background light)) (:foreground "Gray30" :bold t))
+ (((class color) (background dark)) (:foreground "gray" :bold t)))
"ヘッダの From とかの部分の face"
:group 'navi2ch-face)

(defface navi2ch-article-header-contents-face
- '((((class color) (background light)) (:foreground "Navy")))
+ '((((class color) (background light)) (:foreground "Navy"))
+ (((class color) (background dark)) (:foreground "yellow")))
"ヘッダの内容の方の face"
:group 'navi2ch-face)

(defface navi2ch-article-link-face
- '((((class color) (background light)) (:bold t)))
+ '((((class color) (background light)) (:bold t))
+ (((class color) (background dark)) (:bold t)))
"同じスレ中へのリンクの face"
:group 'navi2ch-face)

(defface navi2ch-article-url-face
- '((((class color) (background light)) (:bold t)))
+ '((((class color) (background light)) (:bold t))
+ (((class color) (background dark)) (:bold t)))
"url の face"
:group 'navi2ch-face)

(defface navi2ch-article-citation-face
- '((((class color) (background light)) (:foreground "FireBrick")))
+ '((((class color) (background light)) (:foreground "FireBrick"))
+ (((class color) (background dark)) (:foreground "HotPink1")))
"引用の face"
:group 'navi2ch-face)


[863:━━━━━━━━━━━━━終了━━━━━━━━━━━━━━━ (2001/07/06(金) 01:37)]
 


[864:名無しさん@お腹いっぱい。 (2001/07/06(金) 02:50)]
またブックマークが化けたよ・・・(鬱


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

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


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

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

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


[867:名無しさん@Emacs (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:名無しさん@Emacs (2001/07/07(土) 23:43)]
>>867
(setq navi2ch-article-auto-range nil)
ではだめなりか?
違ってたらゴメソ


[869:名無しさん@Emacs (2001/07/08(日) 00:42)]
どうもです。

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

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


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


次10 前10 最新10
NAME:MAIL:

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