レス数が1000を超えています。残念ながら全部は表示しません。

navi2ch for emacs (part 4)

688 ：287 ：02/01/25 18:06

navi2ch-article-insert-message でスレのデフォルトfaceを
つけてるけど、navi2ch-monaで使ってないですよね。こんなんどうでしょ。

diff -ur navi2ch.orig/navi2ch-article.el navi2ch/navi2ch-article.el
--- navi2ch.orig/navi2ch-article.el Sat Jan 26 02:57:57 2002
+++ navi2ch/navi2ch-article.el Sat Jan 26 02:13:33 2002
@@ -401,8 +401,8 @@
(save-restriction
(narrow-to-region p (point))
;; (navi2ch-article-cleanup-message) ; やっぱ遅い
- (put-text-property (point-min) (point-max) 'face
- 'navi2ch-article-face)
+ (overlay-put (make-overlay (point-min) (point-max))
+ 'category 'navi2ch-article-properties)
(navi2ch-article-set-link-property)
(navi2ch-article-put-cite-face)
(navi2ch-article-arrange-message))))
diff -ur navi2ch.orig/navi2ch-mona.el navi2ch/navi2ch-mona.el
--- navi2ch.orig/navi2ch-mona.el Sat Jan 26 02:57:57 2002
+++ navi2ch/navi2ch-mona.el Sat Jan 26 02:53:58 2002
@@ -48,6 +48,11 @@
"mona フォントを使用しない板のリスト")
(defvar navi2ch-mona-pack-space-p nil
"2つ以上の空白をまとめるか")
+
+(defvar navi2ch-article-properties nil
+ "書き込みをくくるオーバーレイの category プロパティ。
+この変数のプロパティを変更することで、本文を一気に mona フォントにできる。")
+(make-variable-buffer-local 'navi2ch-article-properties)
(cond
((featurep 'xemacs)
(defvar navi2ch-mona-font "-mona-gothic-medium-r-*--16-*-p-*"))
@@ -66,18 +71,7 @@
;; face が特に指定されていない部分を mona-face にする
;; navi2ch-article-face の部分も mona-face にする
(defun navi2ch-mona-put-face ()
- (save-excursion
- (goto-char (point-min))
- (let (p face)
- (while (not (eobp))
- (setq p (next-single-property-change (point)
- 'face nil (point-max)))
- (setq face (get-text-property (point) 'face))
- (if (or (null face)
- (eq face 'navi2ch-article-face))
- (put-text-property (point) (1- p)
- 'face 'navi2ch-mona-face))
- (goto-char p)))))
+ (put 'navi2ch-article-properties 'face 'navi2ch-mona-face))

(defun navi2ch-mona-pack-space ()
(save-excursion

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