OSDN Git Service
(root)
/
epg
/
epg.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
83e3941
)
* epa.el: Use :weight or :slant keywords to define faces, if
author
Daiki Ueno
<ueno@unixuser.org>
Sun, 29 Jul 2007 03:37:52 +0000
(
03:37
+0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Sun, 29 Jul 2007 03:37:52 +0000
(
03:37
+0000)
available.
ChangeLog
patch
|
blob
|
history
epa.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
fb25d2e
..
bdd1642
100644
(file)
--- 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
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
(file)
--- a/
epa.el
+++ b/
epa.el
@@
-49,64
+49,97
@@
the separate window."
:group 'epa)
(defface epa-validity-high
: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
(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
"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
(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
"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
"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
"Face used for displaying the disabled validity."
:group 'epa-faces)
(defface epa-string
- '((((class color)
- (background dark))
+ '((((class color) (background dark))
(:foreground "lightyellow"))
(: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
"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
(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
"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
"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)
"Face for the body of the attribute field."
:group 'epa)