From ac7d8fa7527b023d97dbd1a4cf9149d747fb9fcc Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 3 Sep 2008 13:23:31 +0200 Subject: [PATCH] New face `org-scheduled' This face is used in the agenda for entries that are scheduled on a day that is not today. --- ORGWEBPAGE/Changes.org | 2 ++ lisp/ChangeLog | 5 +++++ lisp/org-agenda.el | 8 +++++--- lisp/org-faces.el | 10 ++++++++++ 4 files changed, 22 insertions(+), 3 deletions(-) diff --git a/ORGWEBPAGE/Changes.org b/ORGWEBPAGE/Changes.org index 8fa134e9d..1451493ee 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 4675493c5..9796d3e1d 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2008-09-03 Carsten Dominik + * 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 165449812..b56c645f6 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 c3e4ac609..6ae54d1dd 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"))