From: ueno <ueno>
Date: Sun, 29 Jul 2007 03:37:52 +0000 (+0000)
Subject: * epa.el: Use :weight or :slant keywords to define faces, if
X-Git-Tag: epg-0_0_14~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5bf1d8d87ad737fdc640a4c9024d56d7bb31a4ca;p=elisp%2Fepg.git

* epa.el: Use :weight or :slant keywords to define faces, if
available.
---

diff --git a/ChangeLog b/ChangeLog
index fb25d2e..bdd1642 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-29  Daiki Ueno  <ueno@unixuser.org>
+
+	* epa.el: Use :weight or :slant keywords to define faces, if
+	available.
+
 2007-07-17  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa-file.el (epa-file-insert-file-contents): If a file is not
diff --git a/epa.el b/epa.el
index a53db29..57dcb70 100644
--- a/epa.el
+++ b/epa.el
@@ -49,64 +49,97 @@ the separate window."
   :group 'epa)
 
 (defface epa-validity-high
-  '((((class color) (background dark))
-     (:foreground "PaleTurquoise" :bold t))
+  `((((class color) (background dark))
+     (:foreground "PaleTurquoise"
+		  ,@(if (assq ':weight custom-face-attributes)
+			'(:weight bold)
+		      '(:bold t))))
     (t
-     (:bold t)))
+     ,@(if (assq ':weight custom-face-attributes)
+	   '(:weight bold)
+	 '(:bold t))))
   "Face used for displaying the high validity."
   :group 'epa-faces)
 
 (defface epa-validity-medium
-  '((((class color) (background dark))
-     (:foreground "PaleTurquoise" :italic t))
+  `((((class color) (background dark))
+     (:foreground "PaleTurquoise"
+		  ,@(if (assq ':slant custom-face-attributes)
+			'(:slant italic)
+		      '(:italic t))))
     (t
-     ()))
+     (,@(if (assq ':slant custom-face-attributes)
+	    '(:slant italic)
+	  '(:italic t)))))
   "Face used for displaying the medium validity."
   :group 'epa-faces)
 
 (defface epa-validity-low
-  '((t
-     (:italic t)))
+  `((t
+     (,@(if (assq ':slant custom-face-attributes)
+	    '(:slant italic)
+	  '(:italic t)))))
   "Face used for displaying the low validity."
   :group 'epa-faces)
 
 (defface epa-validity-disabled
-  '((t
-     (:italic t :inverse-video t)))
+  `((t
+     (,@(if (assq ':slant custom-face-attributes)
+	    '(:slant italic)
+	  '(:italic t))
+	:inverse-video t)))
   "Face used for displaying the disabled validity."
   :group 'epa-faces)
 
 (defface epa-string
-  '((((class color)
-      (background dark))
+  '((((class color) (background dark))
      (:foreground "lightyellow"))
-    (((class color)
-      (background light))
-     (:foreground "blue4"))
-    (t
-     ()))
+    (((class color) (background light))
+     (:foreground "blue4")))
   "Face used for displaying the string."
   :group 'epa-faces)
 
 (defface epa-mark
-  '((((class color) (background dark))
-     (:foreground "orange" :bold t))
+  `((((class color) (background dark))
+     (:foreground "orange"
+		  ,@(if (assq ':weight custom-face-attributes)
+			'(:weight bold)
+		      '(:bold t))))
+    (((class color) (background light))
+     (:foreground "red"
+		  ,@(if (assq ':weight custom-face-attributes)
+			'(:weight bold)
+		      '(:bold t))))
     (t
-     (:foreground "red" :bold t)))
+     (,@(if (assq ':weight custom-face-attributes)
+	    '(:weight bold)
+	  '(:bold t)))))
   "Face used for displaying the high validity."
   :group 'epa-faces)
 
 (defface epa-field-name
-  '((((class color) (background dark))
-     (:foreground "PaleTurquoise" :bold t))
-    (t (:bold t)))
+  `((((class color) (background dark))
+     (:foreground "PaleTurquoise"
+		  ,@(if (assq ':weight custom-face-attributes)
+			'(:weight bold)
+		      '(:bold t))))
+    (t
+     (,@(if (assq ':weight custom-face-attributes)
+	    '(:weight bold)
+	  '(:bold t)))))
   "Face for the name of the attribute field."
   :group 'epa)
 
 (defface epa-field-body
-  '((((class color) (background dark))
-     (:foreground "turquoise" :italic t))
-    (t (:italic t)))
+  `((((class color) (background dark))
+     (:foreground "turquoise"
+		  ,@(if (assq ':slant custom-face-attributes)
+			'(:slant italic)
+		      '(:italic t))))
+    (t
+     (,@(if (assq ':slant custom-face-attributes)
+	    '(:slant italic)
+	  '(:italic t)))))
   "Face for the body of the attribute field."
   :group 'epa)