| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[442:名無しさん＠お腹いっぱい。 (2001/03/18(日) 23:13)]
ttp://〜
って書きかたのやつも認識するようなのを
発見して感動した :-)
[443:431 (2001/03/18(日) 23:26)]
>>431 なおった。
;; 記事に face をつける
(defun set-mona-face (beg end)
(put-text-property beg (point-max)
'face 'mona-face))
>>432
なるほど。
じゃあ、こんなんでどう？
(defvar my-navi2ch-mona-enable t
"mona フォントを使用するかどうか")
(defvar my-navi2ch-mona-enable-board-list nil
"mona フォントを使用する板のリスト.")
(defvar my-navi2ch-mona-disable-board-list '("unix" "linux")
"mona フォントを使用しない板のリスト")
;; Link 以外を mona-face にする
(defun my-navi2ch-put-mona-face (beg end)
(let (p)
(save-excursion
(goto-char beg)
(while (not (eq (point) (point-max)))
(setq p (next-single-property-change (point) 'link
(current-buffer) (point-max)))
(unless (get-text-property (point) 'link)
(put-text-property (point) (1- p)
'face 'my-navi2ch-mona-face))
(goto-char p)))))
(defun my-navi2ch-article-arrange-message (beg end)
(let ((id (cdr (assq 'id navi2ch-article-current-board))))
(when (or (member id my-navi2ch-mona-enable-board-list)
(and (not (member id my-navi2ch-mona-disable-board-list))
my-navi2ch-mona-enable))
(my-navi2ch-put-mona-face beg end))))
(add-hook 'navi2ch-article-arrange-message-functions
'my-navi2ch-article-arrange-message)
[444:(not 1) (2001/03/19(月) 00:12)]
・board mode と article mode でダウンロードする行数を指定できるように
・ソースが文字化けてたのを直す
・見た目をちょっと変えた
です。
ダウンロードの行数指定はやっぱ 2ch-mode からのパクりです :-)
navi2ch-board-max-line と
navi2ch-article-max-line に行数を指定してやって下さい。
デフォルトは nil(全部) です。
>>441
> あぼーんも化け化け
すんません。直しときました。
coding-system 音痴になった時に navi2ch-net.el まで化けちゃったみたいです。
あと、あぼーんの時に navi2ch-net-turn-back-step を使わなくしちゃってたのも
直しときました。
見ためを変えたのは多分使ってみれば判るはず。
>>431
(point-max) を使わないとうまくいかないですか？
ホントはそうじゃなくてもいいはずなんですけど。
;; 俺がどっか間違えたかな。
XEmacs で AA がちゃんと表示されてるスクリーンショットをちょっと見てみたいか
も。
[445:(not 1) (2001/03/19(月) 00:13)]
また書き忘れた。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010318.tar.gz
からどうぞ。
[446:431 (2001/03/19(月) 02:02)]
>>444
> (point-max) を使わないとうまくいかないですか？
> ホントはそうじゃなくてもいいはずなんですけど。
ですよね？でも実際には out of range になるです。
ちょっと詳しくはわからないのですが。
> XEmacs で AA がちゃんと表示されてるスクリーンショッ
> トをちょっと見てみたいかも。
こんな具合です。
http://widech.virtualave.net/upload/img-box/img20010319015727.gif
[447:名無しさん＠お腹いっぱい。 (2001/03/19(月) 02:52)]
修正漏れ？
--- navi2ch-article.el.orig Sun Mar 18 23:28:20 2001
+++ navi2ch-article.el Mon Mar 19 02:44:34 2001
@@ -788,7 +788,7 @@
(select-window (get-buffer-window navi2ch-board-buffer-name))
(switch-to-buffer navi2ch-board-buffer-name))
(forward-line)
- (navi2ch-board-select-article))
+ (navi2ch-bm-select-article))
(message "Don't through next article")))
(defun navi2ch-article-through-previous ()
@@ -803,7 +803,7 @@
(select-window (get-buffer-window navi2ch-board-buffer-name))
(switch-to-buffer navi2ch-board-buffer-name))
(forward-line -1)
- (navi2ch-board-select-article))
+ (navi2ch-bm-select-article))
(message "Don't through previous article")))
(defun navi2ch-article-two-pain ()
[448:名無しさん＠Ｅｍａｃｓ (2001/03/19(月) 03:19)]
感動しました。すばらしいでしゅ。age
[449:0318版快調 (2001/03/19(月) 07:00)]
>>431
その、モナーフェイス快調です。
[450:名無しさん＠お腹いっぱい。 (2001/03/19(月) 23:15)]
FreeBSD 4.2-STABLE で使ってます。
0318+447 patch 使ってますが，Emacs 20.7.1 では快調なんだけど，
XEmacs 21.1 (patch 14) (package でインストール)ではなんか不
安定です。
通常の状態で使うと，string-as-unibyte 周りでエラーが出ます。
で，以下のように強引に string-as-unibyte を使わないようにす
ると，なんとか動きます(こんなんでいいのかは知らないですが)。
--- navi2ch-net.el.orig Sun Mar 18 23:31:34 2001
+++ navi2ch-net.el Mon Mar 19 19:40:41 2001
@@ -274,8 +274,8 @@
(with-temp-buffer
(insert-file-contents file nil (navi2ch-net-file-start file))
(setq str (buffer-string)))
- (string= (string-as-unibyte str)
- (substring (string-as-unibyte cont) 0 navi2ch-net-check-margin))))
+ (string= str
+ (substring cont 0 navi2ch-net-check-margin))))
(defun navi2ch-net-turn-back-file (url file)
(let* ((start (max (- (nth 7 (file-attributes file))
@@ -289,7 +289,7 @@
(set-buffer-multibyte nil)
(insert-file-contents file)
(goto-char (point-max))
- (if (search-backward (string-as-unibyte cont) nil t)
+ (if (search-backward cont nil t)
(progn
(goto-char (match-beginning 0))
(delete-region (point) (point-max))
[451:450 (2001/03/19(月) 23:20)]
ただこれでも，二分割画面(上 Board 下 Article)でスレッドを選
んだ時に，xemacs が core を吐いて倒れます。Lisp backtrace は
以下のような感じ。
Lisp backtrace follows:
split-window(nil 10)
# bind (old-w old-point size window-full-p new-w bottom moved arg)
split-window-vertically(10)
# bind (buf board article item force)
navi2ch-bm-select-article(nil)
# bind (command-debug-status)
call-interactively(navi2ch-bm-select-article)
# (condition-case ... . error)
# (catch top-level ...)
C-x 1 とかで Article を閉じてからスレッドを選べば大丈夫なよ
うです。
read.cgi ver5.26+ (01/10/21-)