Add custom face for highlighting tags used in agenda filtering.
[org-mode.git] / lisp / org-faces.el
1 ;;; org-faces.el --- Face definitions for Org-mode.
2
3 ;; Copyright (C) 2004-2011 Free Software Foundation, Inc.
4
5 ;; Author: Carsten Dominik <carsten at orgmode dot org>
6 ;; Keywords: outlines, hypermedia, calendar, wp
7 ;; Homepage: http://orgmode.org
8 ;;
9 ;; This file is part of GNU Emacs.
10 ;;
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
15
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19 ;; GNU General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
23 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
24 ;;
25 ;;; Commentary:
26
27 ;; This file contains the face definitions for Org.
28
29 ;;; Code:
30
31 (require 'org-macs)
32 (require 'org-compat)
33
34 (defun org-copy-face (old-face new-face docstring &rest attributes)
35   (unless (facep new-face)
36     (if (fboundp 'set-face-attribute)
37         (progn
38           (make-face new-face)
39           (set-face-attribute new-face nil :inherit old-face)
40           (apply 'set-face-attribute new-face nil attributes)
41           (set-face-doc-string new-face docstring))
42       (copy-face old-face new-face)
43       (if (fboundp 'set-face-doc-string)
44           (set-face-doc-string new-face docstring)))))
45 (put 'org-copy-face 'lisp-indent-function 2)
46
47 (defgroup org-faces nil
48   "Faces in Org-mode."
49   :tag "Org Faces"
50   :group 'org-appearance)
51
52 (defface org-default
53   (org-compatible-face 'default nil)
54   "Face used for default text."
55   :group 'org-faces)
56
57 (defface org-hide
58   '((((background light)) (:foreground "white"))
59     (((background dark)) (:foreground "black")))
60   "Face used to hide leading stars in headlines.
61 The foreground color of this face should be equal to the background
62 color of the frame."
63   :group 'org-faces)
64
65 (defface org-level-1 ;; originally copied from font-lock-function-name-face
66   (org-compatible-face 'outline-1
67     '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
68       (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
69       (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
70       (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
71       (((class color) (min-colors 8)) (:foreground "blue" :bold t))
72       (t (:bold t))))
73   "Face used for level 1 headlines."
74   :group 'org-faces)
75
76 (defface org-level-2 ;; originally copied from font-lock-variable-name-face
77   (org-compatible-face 'outline-2
78     '((((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
79       (((class color) (min-colors 16) (background dark))  (:foreground "LightGoldenrod"))
80       (((class color) (min-colors 8)  (background light)) (:foreground "yellow"))
81       (((class color) (min-colors 8)  (background dark))  (:foreground "yellow" :bold t))
82       (t (:bold t))))
83   "Face used for level 2 headlines."
84   :group 'org-faces)
85
86 (defface org-level-3 ;; originally copied from font-lock-keyword-face
87   (org-compatible-face 'outline-3
88     '((((class color) (min-colors 88) (background light)) (:foreground "Purple"))
89       (((class color) (min-colors 88) (background dark))  (:foreground "Cyan1"))
90       (((class color) (min-colors 16) (background light)) (:foreground "Purple"))
91       (((class color) (min-colors 16) (background dark))  (:foreground "Cyan"))
92       (((class color) (min-colors 8)  (background light)) (:foreground "purple" :bold t))
93       (((class color) (min-colors 8)  (background dark))  (:foreground "cyan" :bold t))
94       (t (:bold t))))
95   "Face used for level 3 headlines."
96   :group 'org-faces)
97
98 (defface org-level-4   ;; originally copied from font-lock-comment-face
99   (org-compatible-face 'outline-4
100     '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
101       (((class color) (min-colors 88) (background dark))  (:foreground "chocolate1"))
102       (((class color) (min-colors 16) (background light)) (:foreground "red"))
103       (((class color) (min-colors 16) (background dark))  (:foreground "red1"))
104       (((class color) (min-colors 8) (background light))  (:foreground "red" :bold t))
105       (((class color) (min-colors 8) (background dark))   (:foreground "red" :bold t))
106       (t (:bold t))))
107   "Face used for level 4 headlines."
108   :group 'org-faces)
109
110 (defface org-level-5 ;; originally copied from font-lock-type-face
111   (org-compatible-face 'outline-5
112     '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen"))
113       (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen"))
114       (((class color) (min-colors 8)) (:foreground "green"))))
115   "Face used for level 5 headlines."
116   :group 'org-faces)
117
118 (defface org-level-6 ;; originally copied from font-lock-constant-face
119   (org-compatible-face 'outline-6
120     '((((class color) (min-colors 16) (background light)) (:foreground "CadetBlue"))
121       (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine"))
122       (((class color) (min-colors 8)) (:foreground "magenta"))))
123   "Face used for level 6 headlines."
124   :group 'org-faces)
125
126 (defface org-level-7 ;; originally copied from font-lock-builtin-face
127   (org-compatible-face 'outline-7
128     '((((class color) (min-colors 16) (background light)) (:foreground "Orchid"))
129       (((class color) (min-colors 16) (background dark)) (:foreground "LightSteelBlue"))
130       (((class color) (min-colors 8)) (:foreground "blue"))))
131   "Face used for level 7 headlines."
132   :group 'org-faces)
133
134 (defface org-level-8 ;; originally copied from font-lock-string-face
135   (org-compatible-face 'outline-8
136     '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
137       (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
138       (((class color) (min-colors 8)) (:foreground "green"))))
139   "Face used for level 8 headlines."
140   :group 'org-faces)
141
142 (defface org-special-keyword ;; originally copied from font-lock-string-face
143   (org-compatible-face 'font-lock-keyword-face
144     '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
145       (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
146       (t (:italic t))))
147   "Face used for special keywords."
148   :group 'org-faces)
149
150 (defface org-drawer ;; originally copied from font-lock-function-name-face
151   (org-compatible-face nil
152     '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
153       (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
154       (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
155       (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
156       (((class color) (min-colors 8)) (:foreground "blue" :bold t))
157       (t (:bold t))))
158   "Face used for drawers."
159   :group 'org-faces)
160
161 (defface org-property-value nil
162   "Face used for the value of a property."
163   :group 'org-faces)
164
165 (defface org-column
166   (org-compatible-face nil
167     '((((class color) (min-colors 16) (background light))
168        (:background "grey90" :weight normal :slant normal :strike-through nil
169                     :underline nil))
170       (((class color) (min-colors 16) (background dark))
171        (:background "grey30" :weight normal :slant normal :strike-through nil
172                     :underline nil))
173       (((class color) (min-colors 8))
174        (:background "cyan" :foreground "black"
175                     :weight normal :slant normal :strike-through nil
176                     :underline nil))
177       (t (:inverse-video t))))
178   "Face for column display of entry properties.
179 This is actually only part of the face definition for the text in column view.
180 The following faces apply, with this priority.
181
182 1. The color of the reference face.  This is normally the level fact that
183    is used in the outline.  In agenda-mode, it will be the face of the
184    first character in the line.  The color is explicitly retained to
185    make sure that the column line still looks a bit like the structure
186    line it is masking.
187
188 2. The `org-column' face.
189
190 3. The remaining properties of the reference face.
191
192 Since column view works by putting overlays with a display property
193 over individual characters in the buffer, the face of the underlining
194 character (this might for example be the a TODO keyword) might still
195 shine through in some properties.  So when your column view looks
196 funny, with \"random\" colors, weight, strike-through, try to explicitly
197 set the properties in the `org-column' face.  For example, set
198 :underline to nil, or the :slant to `normal'.
199
200 Under XEmacs, the rules are simpler, because the XEmacs version of
201 column view defines special faces for each outline level.  See the file
202 `org-colview-xemacs.el' for details."
203   :group 'org-faces)
204
205 (defface org-column-title
206   (org-compatible-face nil
207     '((((class color) (min-colors 16) (background light))
208        (:background "grey90" :underline t :weight bold))
209       (((class color) (min-colors 16) (background dark))
210        (:background "grey30" :underline t :weight bold))
211       (((class color) (min-colors 8))
212        (:background "cyan" :foreground "black" :underline t :weight bold))
213       (t (:inverse-video t))))
214   "Face for column display of entry properties."
215   :group 'org-faces)
216
217 (when (fboundp 'set-face-attribute)
218   ;; Make sure that a fixed-width face is used when we have a column table.
219   (set-face-attribute 'org-column nil
220                       :height (face-attribute 'default :height)
221                       :family (face-attribute 'default :family)))
222
223 (defface org-agenda-column-dateline
224   (org-compatible-face 'org-column
225     '((t nil)))
226   "Face used in agenda column view for datelines with summaries."
227   :group 'org-faces)
228
229 (defface org-warning
230   (org-compatible-face 'font-lock-warning-face
231     '((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t))
232       (((class color) (min-colors 16) (background dark))  (:foreground "Pink" :bold t))
233       (((class color) (min-colors 8)  (background light)) (:foreground "red"  :bold t))
234       (((class color) (min-colors 8)  (background dark))  (:foreground "red"  :bold t))
235       (t (:bold t))))
236   "Face for deadlines and TODO keywords."
237   :group 'org-faces)
238
239 (defface org-archived    ; similar to shadow
240   (org-compatible-face 'shadow
241     '((((class color grayscale) (min-colors 88) (background light))
242        (:foreground "grey50"))
243       (((class color grayscale) (min-colors 88) (background dark))
244        (:foreground "grey70"))
245       (((class color) (min-colors 8) (background light))
246        (:foreground "green"))
247       (((class color) (min-colors 8) (background dark))
248        (:foreground "yellow"))))
249   "Face for headline with the ARCHIVE tag."
250   :group 'org-faces)
251
252 (defface org-link
253   (org-compatible-face 'link
254     '((((class color) (background light)) (:foreground "Purple" :underline t))
255       (((class color) (background dark)) (:foreground "Cyan" :underline t))
256       (t (:underline t))))
257   "Face for links."
258   :group 'org-faces)
259
260 (defface org-footnote
261   '((((class color) (background light)) (:foreground "Purple" :underline t))
262     (((class color) (background dark)) (:foreground "Cyan" :underline t))
263     (t (:underline t)))
264   "Face for links."
265   :group 'org-faces)
266
267 (defface org-ellipsis
268   '((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t))
269     (((class color) (background dark)) (:foreground "LightGoldenrod" :underline t))
270     (t (:strike-through t)))
271   "Face for the ellipsis in folded text."
272   :group 'org-faces)
273
274 (defface org-target
275   '((((class color) (background light)) (:underline t))
276     (((class color) (background dark)) (:underline t))
277     (t (:underline t)))
278   "Face for link targets."
279   :group 'org-faces)
280
281 (defface org-date
282   '((((class color) (background light)) (:foreground "Purple" :underline t))
283     (((class color) (background dark)) (:foreground "Cyan" :underline t))
284     (t (:underline t)))
285   "Face for date/time stamps."
286   :group 'org-faces)
287
288 (defface org-sexp-date
289   '((((class color) (background light)) (:foreground "Purple"))
290     (((class color) (background dark)) (:foreground "Cyan"))
291     (t (:underline t)))
292   "Face for diary-like sexp date specifications."
293   :group 'org-faces)
294
295 (defface org-tag
296   '((t (:bold t)))
297   "Default face for tags.
298 Note that the variable `org-tag-faces' can be used to overrule this face for
299 specific tags."
300   :group 'org-faces)
301
302 (defface org-todo ; font-lock-warning-face
303   (org-compatible-face nil
304     '((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t))
305       (((class color) (min-colors 16) (background dark))  (:foreground "Pink" :bold t))
306       (((class color) (min-colors 8)  (background light)) (:foreground "red"  :bold t))
307       (((class color) (min-colors 8)  (background dark))  (:foreground "red"  :bold t))
308       (t (:inverse-video t :bold t))))
309   "Face for TODO keywords."
310   :group 'org-faces)
311
312 (defface org-done ;; originally copied from font-lock-type-face
313   (org-compatible-face nil
314     '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen" :bold t))
315       (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold t))
316       (((class color) (min-colors 8)) (:foreground "green"))
317       (t (:bold t))))
318   "Face used for todo keywords that indicate DONE items."
319   :group 'org-faces)
320
321 (defface org-agenda-done ;; originally copied from font-lock-type-face
322   (org-compatible-face nil
323     '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen"))
324       (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen"))
325       (((class color) (min-colors 8)) (:foreground "green"))
326       (t (:bold nil))))
327   "Face used in agenda, to indicate lines switched to DONE.
328 This face is used to de-emphasize items that where brightly colored in the
329 agenda because they were things to do, or overdue.  The DONE state itself
330 is of course immediately visible, but for example a passed deadline is
331 \(by default) very bright read.  This face could be simply the default face
332 of the frame, for example."
333   :group 'org-faces)
334
335 (defface org-headline-done ;; originally copied from font-lock-string-face
336   (org-compatible-face nil
337     '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown"))
338       (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon"))
339       (((class color) (min-colors 8)  (background light)) (:bold nil))))
340   "Face used to indicate that a headline is DONE.
341 This face is only used if `org-fontify-done-headline' is set.  If applies
342 to the part of the headline after the DONE keyword."
343   :group 'org-faces)
344
345 (defcustom org-faces-easy-properties
346   '((todo . :foreground) (tag . :foreground) (priority . :foreground))
347   "The property changes by easy faces.
348 This is an alist, the keys show the area of application, the values
349 can be `:foreground' or `:background'.  A color string for special
350 keywords will then be interpreted as either foreground or background
351 color."
352   :group 'org-faces
353   :group 'org-todo
354   :type '(repeat
355           (cons (choice (const todo) (const tag) (const priority))
356                 (choice (const :foreground) (const :background)))))
357
358 (defcustom org-todo-keyword-faces nil
359   "Faces for specific TODO keywords.
360 This is a list of cons cells, with TODO keywords in the car
361 and faces in the cdr.  The face can be a symbol, a color
362 as a string (in which case the rest is inherited from the `org-todo' face),
363 or a property list of attributes, like
364    (:foreground \"blue\" :weight bold :underline t).
365 If it is a color string, the variable `org-faces-easy-properties'
366 determines if it is a foreground or a background color."
367   :group 'org-faces
368   :group 'org-todo
369   :type '(repeat
370           (cons
371            (string :tag "Keyword")
372            (choice :tag "Face   "
373             (string :tag "Color")
374             (sexp :tag "Face")))))
375
376 (defcustom org-priority-faces nil
377   "Faces for specific Priorities.
378 This is a list of cons cells, with priority character in the car
379 and faces in the cdr.  The face can be a symbol, a color as
380 as a string, or a property list of attributes, like
381     (:foreground \"blue\" :weight bold :underline t).
382 If it is a color string, the variable `org-faces-easy-properties'
383 determines if it is a foreground or a background color."
384   :group 'org-faces
385   :group 'org-todo
386   :type '(repeat
387           (cons
388            (character :tag "Priority")
389            (choice    :tag "Face    "
390             (string :tag "Color")
391             (sexp :tag "Face")))))
392
393 (defvar org-tags-special-faces-re nil)
394 (defun org-set-tag-faces (var value)
395   (set var value)
396   (if (not value)
397       (setq org-tags-special-faces-re nil)
398     (setq org-tags-special-faces-re
399           (concat ":\\(" (mapconcat 'car value "\\|") "\\):"))))
400
401 (defface org-checkbox
402   (org-compatible-face 'bold
403     '((t (:bold t))))
404   "Face for checkboxes"
405   :group 'org-faces)
406
407
408 (org-copy-face 'org-todo 'org-checkbox-statistics-todo
409   "Face used for unfinished checkbox statistics.")
410
411 (org-copy-face 'org-done 'org-checkbox-statistics-done
412   "Face used for finished checkbox statistics.")
413
414 (defcustom org-tag-faces nil
415   "Faces for specific tags.
416 This is a list of cons cells, with tags in the car and faces in the cdr.
417 The face can be a symbol, a foreground color (in which case the rest is
418 inherited from the `org-tag' face) or a property list of attributes,
419 like (:foreground \"blue\" :weight bold :underline t).
420 If you set this variable through customize, it will immediately be effective
421 in new buffers and in modified lines.
422 If you set it with Lisp, a restart of Emacs is required to activate the
423 changes."
424   :group 'org-faces
425   :group 'org-tags
426   :set 'org-set-tag-faces
427   :type '(repeat
428           (cons
429            (string :tag "Tag ")
430            (choice :tag "Face"
431             (string :tag "Foreground color")
432             (sexp :tag "Face")))))
433
434 (defface org-table ;; originally copied from font-lock-function-name-face
435   (org-compatible-face nil
436     '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
437       (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
438       (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
439       (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
440       (((class color) (min-colors 8)  (background light)) (:foreground "blue"))
441       (((class color) (min-colors 8)  (background dark)))))
442   "Face used for tables."
443   :group 'org-faces)
444
445 (defface org-formula
446   (org-compatible-face nil
447     '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
448       (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
449       (((class color) (min-colors 8)  (background light)) (:foreground "red"))
450       (((class color) (min-colors 8)  (background dark)) (:foreground "red"))
451       (t (:bold t :italic t))))
452   "Face for formulas."
453   :group 'org-faces)
454
455 (defface org-code
456   (org-compatible-face 'shadow
457     '((((class color grayscale) (min-colors 88) (background light))
458        (:foreground "grey50"))
459       (((class color grayscale) (min-colors 88) (background dark))
460        (:foreground "grey70"))
461       (((class color) (min-colors 8) (background light))
462        (:foreground "green"))
463       (((class color) (min-colors 8) (background dark))
464        (:foreground "yellow"))))
465   "Face for fixed-width text like code snippets."
466   :group 'org-faces
467   :version "22.1")
468
469 (defface org-meta-line
470   (org-compatible-face 'font-lock-comment-face nil)
471   "Face for meta lines startin with \"#+\"."
472   :group 'org-faces
473   :version "22.1")
474
475 (defface org-document-title
476   '((((class color) (background light)) (:foreground "midnight blue" :weight bold :height 1.44))
477     (((class color) (background dark)) (:foreground "pale turquoise" :weight bold :height 1.44))
478     (t (:weight bold :height 1.44)))
479   "Face for document title, i.e. that which follows the #+TITLE: keyword."
480   :group 'org-faces)
481
482 (defface org-document-info
483   '((((class color) (background light)) (:foreground "midnight blue"))
484     (((class color) (background dark)) (:foreground "pale turquoise"))
485     (t nil))
486   "Face for document date, author and email; i.e. that which
487 follows a #+DATE:, #+AUTHOR: or #+EMAIL: keyword."
488   :group 'org-faces)
489
490 (defface org-document-info-keyword
491   (org-compatible-face 'shadow
492     '((((class color grayscale) (min-colors 88) (background light))
493        (:foreground "grey50"))
494       (((class color grayscale) (min-colors 88) (background dark))
495        (:foreground "grey70"))
496       (((class color) (min-colors 8) (background light))
497        (:foreground "green"))
498       (((class color) (min-colors 8) (background dark))
499        (:foreground "yellow"))))
500   "Face for #+TITLE:, #+AUTHOR:, #+EMAIL: and #+DATE: keywords."
501   :group 'org-faces)
502
503 (defface org-block
504   (org-compatible-face 'shadow
505     '((((class color grayscale) (min-colors 88) (background light))
506        (:foreground "grey50"))
507       (((class color grayscale) (min-colors 88) (background dark))
508        (:foreground "grey70"))
509       (((class color) (min-colors 8) (background light))
510        (:foreground "green"))
511       (((class color) (min-colors 8) (background dark))
512        (:foreground "yellow"))))
513   "Face text in #+begin ... #+end blocks."
514   :group 'org-faces
515   :version "22.1")
516
517 (defface org-block-background '((t ()))
518   "Face used for the source block background.")
519
520 (org-copy-face 'org-meta-line 'org-block-begin-line
521   "Face used for the line delimiting the begin of source blocks.")
522
523 (org-copy-face 'org-meta-line 'org-block-end-line
524   "Face used for the line delimiting the end of source blocks.")
525
526 (defface org-verbatim
527   (org-compatible-face 'shadow
528     '((((class color grayscale) (min-colors 88) (background light))
529        (:foreground "grey50" :underline t))
530       (((class color grayscale) (min-colors 88) (background dark))
531        (:foreground "grey70" :underline t))
532       (((class color) (min-colors 8) (background light))
533        (:foreground "green" :underline t))
534       (((class color) (min-colors 8) (background dark))
535        (:foreground "yellow" :underline t))))
536   "Face for fixed-with text like code snippets."
537   :group 'org-faces
538   :version "22.1")
539
540 (org-copy-face 'org-block 'org-quote
541    "Face for #+BEGIN_QUOTE ... #+END_QUOTE blocks.")
542 (org-copy-face 'org-block 'org-verse
543    "Face for #+BEGIN_VERSE ... #+END_VERSE blocks.")
544
545 (defcustom org-fontify-quote-and-verse-blocks nil
546   "Non-nil means, add a special face to #+begin_quote and #+begin_verse block.
547 When nil, format these as normal Org.  This is the default, because the
548 content of these blocks will still be treated as Org syntax."
549   :group 'org-faces
550   :type 'boolean)
551
552 (defface org-clock-overlay ;; copied from secondary-selection
553   (org-compatible-face nil
554     '((((class color) (min-colors 88) (background light))
555        (:background "yellow1"))
556       (((class color) (min-colors 88) (background dark))
557        (:background "SkyBlue4"))
558       (((class color) (min-colors 16) (background light))
559        (:background "yellow"))
560       (((class color) (min-colors 16) (background dark))
561        (:background "SkyBlue4"))
562       (((class color) (min-colors 8))
563        (:background "cyan" :foreground "black"))
564       (t (:inverse-video t))))
565     "Basic face for displaying the secondary selection."
566     :group 'org-faces)
567
568 (defface org-agenda-structure ;; originally copied from font-lock-function-name-face
569   (org-compatible-face nil
570     '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
571       (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
572       (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
573       (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
574       (((class color) (min-colors 8)) (:foreground "blue" :bold t))
575       (t (:bold t))))
576   "Face used in agenda for captions and dates."
577   :group 'org-faces)
578
579 (org-copy-face 'org-agenda-structure 'org-agenda-date
580   "Face used in agenda for normal days.")
581
582 (org-copy-face 'org-agenda-date 'org-agenda-date-today
583   "Face used in agenda for today."
584   :weight 'bold :italic 't)
585
586 (org-copy-face 'secondary-selection 'org-agenda-clocking
587   "Face marking the current clock item in the agenda.")
588
589 (org-copy-face 'org-agenda-date 'org-agenda-date-weekend
590   "Face used in agenda for weekend days.
591 See the variable `org-agenda-weekend-days' for a definition of which days
592 belong to the weekend."
593                :weight 'bold)
594
595 (defface org-scheduled
596   (org-compatible-face nil
597     '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen"))
598       (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))
599       (((class color) (min-colors 8)) (:foreground "green"))
600       (t (:bold t :italic t))))
601   "Face for items scheduled for a certain day."
602   :group 'org-faces)
603
604 (defface org-scheduled-today
605   (org-compatible-face nil
606     '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen"))
607       (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))
608       (((class color) (min-colors 8)) (:foreground "green"))
609       (t (:bold t :italic t))))
610   "Face for items scheduled for a certain day."
611   :group 'org-faces)
612
613 (defface org-agenda-dimmed-todo-face
614   '((((background light)) (:foreground "grey50"))
615     (((background dark)) (:foreground "grey50")))
616   "Face used to dim blocked tasks in the agenda."
617   :group 'org-faces)
618
619 (defface org-scheduled-previously
620   (org-compatible-face nil
621     '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
622       (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
623       (((class color) (min-colors 8)  (background light)) (:foreground "red"))
624       (((class color) (min-colors 8)  (background dark)) (:foreground "red" :bold t))
625       (t (:bold t))))
626   "Face for items scheduled previously, and not yet done."
627   :group 'org-faces)
628
629 (defface org-upcoming-deadline
630   (org-compatible-face nil
631     '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))
632       (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1"))
633       (((class color) (min-colors 8)  (background light)) (:foreground "red"))
634       (((class color) (min-colors 8)  (background dark)) (:foreground "red" :bold t))
635       (t (:bold t))))
636   "Face for items scheduled previously, and not yet done."
637   :group 'org-faces)
638
639 (defcustom org-agenda-deadline-faces
640   '((1.0 . org-warning)
641     (0.5 . org-upcoming-deadline)
642     (0.0 . default))
643   "Faces for showing deadlines in the agenda.
644 This is a list of cons cells.  The cdr of each cell is a face to be used,
645 and it can also just be like '(:foreground \"yellow\").
646 Each car is a fraction of the head-warning time that must have passed for
647 this the face in the cdr to be used for display.  The numbers must be
648 given in descending order.  The head-warning time is normally taken
649 from `org-deadline-warning-days', but can also be specified in the deadline
650 timestamp itself, like this:
651
652    DEADLINE: <2007-08-13 Mon -8d>
653
654 You may use d for days, w for weeks, m for months and y for years.  Months
655 and years will only be treated in an approximate fashion (30.4 days for a
656 month and 365.24 days for a year)."
657   :group 'org-faces
658   :group 'org-agenda-daily/weekly
659   :type '(repeat
660           (cons
661            (number :tag "Fraction of head-warning time passed")
662            (sexp :tag "Face"))))
663
664 (defface org-agenda-restriction-lock
665   (org-compatible-face nil
666     '((((class color) (min-colors 88) (background light)) (:background "yellow1"))
667       (((class color) (min-colors 88) (background dark))  (:background "skyblue4"))
668       (((class color) (min-colors 16) (background light)) (:background "yellow1"))
669       (((class color) (min-colors 16) (background dark))  (:background "skyblue4"))
670       (((class color) (min-colors 8)) (:background "cyan" :foreground "black"))
671       (t (:inverse-video t))))
672   "Face for showing the agenda restriction lock."
673   :group 'org-faces)
674
675 (defface org-agenda-filter-tags
676   (org-compatible-face nil
677     '((((background light)) (:foreground "orange"))
678       (((background dark))  (:foreground "orange"))))
679   "Face for showing the tags (in the mode-line) which are used in the agenda filtering."
680   :group 'org-faces)
681
682 (defface org-time-grid ;; originally copied from font-lock-variable-name-face
683   (org-compatible-face nil
684     '((((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
685       (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod"))
686       (((class color) (min-colors 8)) (:foreground "yellow" :weight light))))
687   "Face used for time grids."
688   :group 'org-faces)
689
690 (org-copy-face 'org-time-grid 'org-agenda-current-time
691   "Face used to show the current time in the time grid.")
692
693 (defface org-agenda-diary
694   (org-compatible-face 'default
695     nil)
696   "Face used for agenda entries that come from the Emacs diary."
697   :group 'org-faces)
698
699 (defconst org-level-faces
700   '(org-level-1 org-level-2 org-level-3 org-level-4
701     org-level-5 org-level-6 org-level-7 org-level-8
702     ))
703
704 (defcustom org-n-level-faces (length org-level-faces)
705   "The number of different faces to be used for headlines.
706 Org-mode defines 8 different headline faces, so this can be at most 8.
707 If it is less than 8, the level-1 face gets re-used for level N+1 etc."
708   :type 'integer
709   :group 'org-faces)
710
711 (defcustom org-cycle-level-faces t
712  "Non-nil means level styles cycle after level `org-n-level-faces'.
713 Then so level org-n-level-faces+1 is styled like level 1.
714 If nil, then all levels >=org-n-level-faces are styled like
715 level org-n-level-faces"
716  :group 'org-appearance
717  :group 'org-faces
718  :type 'boolean)
719
720 (defface org-latex-and-export-specials
721   (let ((font (cond ((assq :inherit custom-face-attributes)
722                      '(:inherit underline))
723                     (t '(:underline t)))))
724     `((((class grayscale) (background light))
725        (:foreground "DimGray" ,@font))
726       (((class grayscale) (background dark))
727        (:foreground "LightGray" ,@font))
728       (((class color) (background light))
729        (:foreground "SaddleBrown"))
730       (((class color) (background dark))
731        (:foreground "burlywood"))
732       (t (,@font))))
733   "Face used to highlight math latex and other special exporter stuff."
734   :group 'org-faces)
735
736 (org-copy-face 'modeline 'org-mode-line-clock
737   "Face used for clock display in mode line.")
738 (org-copy-face 'modeline 'org-mode-line-clock-overrun
739   "Face used for clock display for overrun tasks in mode line."
740   :background "red")
741
742 (provide 'org-faces)
743
744 ;;; org-faces.el ends here