Agenda: New face for today.
There is now a separate for the date of today, `org-agenda-date-today'. Patch by Dmitri Minaev
This commit is contained in:
parent
b5b87d4b0e
commit
e88564bbba
3 changed files with 17 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue