Agenda: New face for today.

There is now a separate for the date of today,
`org-agenda-date-today'.

Patch by Dmitri Minaev

lisp/ChangeLog

@@ -1,3 +1,10 @@
+2009-05-22  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-agenda.el (org-agenda-list): Apply the new face
+	`org-agenda-date-today'.
+
+	* org-faces.el (org-agenda-date-today): New face.
+
 2009-05-21  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-agenda.el (org-agenda-to-appt): Turn off restriction when

lisp/org-agenda.el

@@ -2820,7 +2820,9 @@ given in `org-agenda-start-on-weekday'."
 				 'org-agenda-date))
 	    (put-text-property s (1- (point)) 'org-date-line t)
 	    (put-text-property s (1- (point)) 'org-day-cnt day-cnt)
-	    (if todayp (put-text-property s (1- (point)) 'org-today t))
+ 	    (when todayp 
+ 	      (put-text-property s (1- (point)) 'org-today t)
+ 	      (put-text-property s (1- (point)) 'face 'org-agenda-date-today))
 	    (if rtnall (insert
 			(org-finalize-agenda-entries
 			 (org-agenda-add-time-grid-maybe

lisp/org-faces.el

@@ -461,6 +461,13 @@ changes."
   (set-face-doc-string 'org-agenda-date
 		       "Face used in agenda for normal days."))
 
+(unless (facep 'org-agenda-date-today)
+  (copy-face 'org-agenda-date 'org-agenda-date-today)
+  (set-face-doc-string 'org-agenda-date-today
+ 		       "Face used in agenda for today.")
+  (when (fboundp 'set-face-attribute)
+    (set-face-attribute 'org-agenda-date-today nil :weight 'bold :italic 't)))
+
 (unless (facep 'org-agenda-date-weekend)
   (copy-face 'org-agenda-date 'org-agenda-date-weekend)
   (set-face-doc-string 'org-agenda-date-weekend