2010年2月15日

[mew-dist 29118] Re: Mew 6.3

山本です。

>> (face-spec-set face-key `((t (:foreground ,key-color :bold ,bold)))))
>> という部分が二カ所ありますが、
>> (face-spec-set face-key `((t (:foreground ,key-color :weight "medium")))))
>> とかすると、直りますかね。
>
> mew-header-color を全て削除して

> (setq mew-theme-file"~/.mewrc-theme.el") を有効にして起動してみ
> ましたが有効にならずに、ボールドのままとなってしまいました。

Mac だと bold とそうじゃないフォントが見分けられないので、困っていまし
たが、italic を使えばテストできると思いつき、問題を解決しました。以下の
パッチで直ると思います。試して下さい。

--かず

diff --git a/mew-env.el b/mew-env.el
index c1e13fc..8ac3c15 100644
--- a/mew-env.el
+++ b/mew-env.el
@@ -229,6 +229,33 @@ requires PTY.")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
+;;; Face
+;;;
+
+(cond
+ ((fboundp 'face-all-attributes) ;; Emacs 23
+ (defalias 'mew-face-spec-func 'cons)
+ (defun mew-face-spec-primitive (col bold)
+ (if col
+ (if bold
+ (list :foreground col :weight 'bold)
+ (list :foreground col))
+ (if bold
+ (list :weight 'bold)
+ nil))))
+ (t
+ (defalias 'mew-face-spec-func 'list)
+ (defun mew-face-spec-primitive (col bold)
+ (if col
+ (if bold
+ (list :foreground col :bold t)
+ (list :foreground col))
+ (if bold
+ (list :bold t)
+ nil)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
;;; Misc
;;;

diff --git a/mew-vars2.el b/mew-vars2.el
index 3f021b9..0bac838 100644
--- a/mew-vars2.el
+++ b/mew-vars2.el
@@ -609,16 +609,18 @@ present, mew-face-header-marginal is used."
(mew-defstruct header-color field key val)
(defvar mew-header-color-alist nil)

+;; See also mew-face-make-spec.
+
(defun mew-header-color-base (field key-color val-color bold)
(unless val-color (setq val-color key-color))
(let ((face-key (intern (concat "mew-face-color-" key-color (if bold "-bold"))))
(face-val (intern (concat "mew-face-color-" val-color (if bold "-bold")))))
(unless (facep face-key)
(make-empty-face face-key)
- (face-spec-set face-key `((t (:foreground ,key-color :bold ,bold)))))
+ (face-spec-set face-key (list (mew-face-spec-func t (mew-face-spec-primitive key-color bold)))))
(unless (facep face-val)
(make-empty-face face-val)
- (face-spec-set face-val `((t (:foreground ,val-color :bold ,bold)))))
+ (face-spec-set face-val (list (mew-face-spec-func t (mew-face-spec-primitive val-color bold)))))
(setq mew-header-color-alist
(cons (list (capitalize field) face-key face-val) mew-header-color-alist))))

diff --git a/mew-vars3.el b/mew-vars3.el
index 2317a5a..0052688 100644
--- a/mew-vars3.el
+++ b/mew-vars3.el
@@ -15,24 +15,27 @@
(:light (background light))
(:dark (background dark))))

+;; See also mew-header-color-base
+
(defun mew-face-make-spec (bold &rest spec)
(let (ret key col)
(if (and bold (not (member :tty spec)))
- (setq ret (copy-sequence '((((class color) (type tty)) (:bold t))))))
+ (setq ret (cons (mew-face-spec-func '((class color) (type tty))
+ (mew-face-spec-primitive nil t))
+ ret)))
(while spec
(setq key (car spec))
(setq spec (cdr spec))
(setq col (car spec))
(setq spec (cdr spec))
- (setq ret (cons (list (list '(class color)
- (mew-alist-get-value (assoc key mew-face-spec-alist)))
- (if bold
- (list :foreground col :bold t)
- (list :foreground col)))
- ret)))
- (if bold
- (setq ret (cons '(t (:bold t)) ret))
- (setq ret (cons '(t nil) ret)))
+ (setq ret (cons
+ (mew-face-spec-func
+ (list '(class color)
+ (mew-alist-get-value (assoc key mew-face-spec-alist)))
+ (mew-face-spec-primitive col bold))
+ ret)))
+ (setq ret (cons (mew-face-spec-func t (mew-face-spec-primitive nil bold))
+ ret))
(nreverse ret)))

(defmacro mew-setface (sym &rest spec)


投稿者 xml-rpc : 2010年2月15日 12:50
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/93349
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。