Mercurial > emacs
comparison lisp/calendar/calendar.el @ 33114:387b549687a3
(diary-face, holiday-face): Add dark-background variants.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 01 Nov 2000 09:11:26 +0000 |
| parents | 719a230f8091 |
| children | 8006eaf2db42 |
comparison
equal
deleted
inserted
replaced
| 33113:74323fb60963 | 33114:387b549687a3 |
|---|---|
| 205 :group 'view) | 205 :group 'view) |
| 206 | 206 |
| 207 (when window-system | 207 (when window-system |
| 208 (add-to-list 'facemenu-unlisted-faces 'diary-face) | 208 (add-to-list 'facemenu-unlisted-faces 'diary-face) |
| 209 (defface diary-face | 209 (defface diary-face |
| 210 '((((class color)) | 210 '((((class color) (background light)) |
| 211 (:foreground "red")) | 211 :foreground "red") |
| 212 (t (:bold t))) | 212 (((class color) (background dark)) |
| 213 :foreground "yellow") | |
| 214 (t | |
| 215 :bold t)) | |
| 213 "Face for highlighting diary entries." | 216 "Face for highlighting diary entries." |
| 214 :group 'diary) | 217 :group 'diary) |
| 215 | 218 |
| 216 (add-to-list 'facemenu-unlisted-faces 'calendar-today-face) | 219 (add-to-list 'facemenu-unlisted-faces 'calendar-today-face) |
| 217 (defface calendar-today-face | 220 (defface calendar-today-face |
| 219 "Face for indicating today's date." | 222 "Face for indicating today's date." |
| 220 :group 'diary) | 223 :group 'diary) |
| 221 | 224 |
| 222 (add-to-list 'facemenu-unlisted-faces 'holiday-face) | 225 (add-to-list 'facemenu-unlisted-faces 'holiday-face) |
| 223 (defface holiday-face | 226 (defface holiday-face |
| 224 '((((class color)) | 227 '((((class color) (background light)) |
| 225 (:background "pink")) | 228 :background "pink") |
| 226 (t (:inverse-video t))) | 229 (((class color) (background dark)) |
| 230 :background "chocolate4") | |
| 231 (t | |
| 232 :inverse-video t)) | |
| 227 "Face for indicating dates that have holidays." | 233 "Face for indicating dates that have holidays." |
| 228 :group 'diary)) | 234 :group 'diary)) |
| 229 | 235 |
| 230 (defcustom diary-entry-marker | 236 (defcustom diary-entry-marker |
| 231 (if (not window-system) | 237 (if (not window-system) |