diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2008-09-03 13:23:31 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2008-09-03 13:23:31 +0200 |
commit | ac7d8fa7527b023d97dbd1a4cf9149d747fb9fcc (patch) | |
tree | ada4245c1c31b146c629748cae46ee941cfdccae | |
parent | dc193b76e71883e45daa4b8d0ee9a5281e3a8a21 (diff) | |
download | org-mode-ac7d8fa7527b023d97dbd1a4cf9149d747fb9fcc.tar.gz |
New face `org-scheduled'
This face is used in the agenda for entries that are
scheduled on a day that is not today.
-rw-r--r-- | ORGWEBPAGE/Changes.org | 2 | ||||
-rwxr-xr-x | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/org-agenda.el | 8 | ||||
-rw-r--r-- | lisp/org-faces.el | 10 |
4 files changed, 22 insertions, 3 deletions
diff --git a/ORGWEBPAGE/Changes.org b/ORGWEBPAGE/Changes.org index 8fa134e..1451493 100644 --- a/ORGWEBPAGE/Changes.org +++ b/ORGWEBPAGE/Changes.org @@ -16,6 +16,8 @@ :END: ** Details +*** New face =org-scheduled= for entries that at some time in the future. + This was a request by Richard G Rigley. *** Remember templates for gnus links can now use the :to escape. Thanks to Tommy Lindgren for a patch to this effect. *** The file specification in a remember template may now be a function diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4675493..9796d3e 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2008-09-03 Carsten Dominik <dominik@science.uva.nl> + * org-agenda.el (org-agenda-get-scheduled): Use new + `org-scheduled' face. + + * org-faces.el (org-scheduled): New face. + * org-wl.el (org-wl-open): Remove incorrect declaration. * org-gnus.el (org-gnus-store-link): Support for :to information diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1654498..b56c645 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3514,9 +3514,11 @@ FRACTION is what fraction of the head-warning time has passed." head category tags timestr)))) (setq txt org-agenda-no-heading-message)) (when txt - (setq face (if pastschedp - 'org-scheduled-previously - 'org-scheduled-today)) + (setq face + (cond + (pastschedp 'org-scheduled-previously) + (todayp 'org-scheduled-today) + (t 'org-schduled))) (org-add-props txt props 'undone-face face 'face (if donep 'org-done face) diff --git a/lisp/org-faces.el b/lisp/org-faces.el index c3e4ac6..6ae54d1 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -381,6 +381,15 @@ belong to the weekend.") (when (fboundp 'set-face-attribute) (set-face-attribute 'org-agenda-date-weekend nil :weight 'bold))) +(defface org-scheduled + (org-compatible-face nil + '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) + (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) + (((class color) (min-colors 8)) (:foreground "green")) + (t (:bold t :italic t)))) + "Face for items scheduled for a certain day." + :group 'org-faces) + (defface org-scheduled-today (org-compatible-face nil '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) @@ -390,6 +399,7 @@ belong to the weekend.") "Face for items scheduled for a certain day." :group 'org-faces) + (defface org-scheduled-previously (org-compatible-face nil '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) |