summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2008-09-03 13:23:31 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2008-09-03 13:23:31 +0200
commitac7d8fa7527b023d97dbd1a4cf9149d747fb9fcc (patch)
treeada4245c1c31b146c629748cae46ee941cfdccae
parentdc193b76e71883e45daa4b8d0ee9a5281e3a8a21 (diff)
downloadorg-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.org2
-rwxr-xr-xlisp/ChangeLog5
-rw-r--r--lisp/org-agenda.el8
-rw-r--r--lisp/org-faces.el10
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"))