mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
Code

New face `org-scheduled'

Browse Source 
This face is used in the agenda for entries that are
scheduled on a day that is not today.
This commit is contained in:
Carsten Dominik 2008-09-03 13:23:31 +02:00
parent dc193b76e7
commit ac7d8fa752
4 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ORGWEBPAGE/Changes.org
View File

@ -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
lisp/ChangeLog
View File

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

8
lisp/org-agenda.el
View File

@ -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
lisp/org-faces.el
View File

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