Browse Source

New face `org-scheduled'

This face is used in the agenda for entries that are
scheduled on a day that is not today.
Carsten Dominik 11 years ago
parent
commit
ac7d8fa752
4 changed files with 22 additions and 3 deletions
  1. 2 0
      ORGWEBPAGE/Changes.org
  2. 5 0
      lisp/ChangeLog
  3. 5 3
      lisp/org-agenda.el
  4. 10 0
      lisp/org-faces.el

+ 2 - 0
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

+ 5 - 0
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

+ 5 - 3
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)

+ 10 - 0
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"))