mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Carsten Dominik 2009-05-22 10:04:56 +02:00
parent b5b87d4b0e
commit e88564bbba
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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

4
lisp/org-agenda.el
View File

@ -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

7
lisp/org-faces.el
View File

@ -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