ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New face `org-scheduled' 

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 12:01:48 +02:00
parent dc193b76e7
commit 86b408e4e0
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: :END:
** Details ** 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. *** Remember templates for gnus links can now use the :to escape.
Thanks to Tommy Lindgren for a patch to this effect. Thanks to Tommy Lindgren for a patch to this effect.
*** The file specification in a remember template may now be a function *** 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> 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-wl.el (org-wl-open): Remove incorrect declaration.
* org-gnus.el (org-gnus-store-link): Support for :to information * 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)))) head category tags timestr))))
(setq txt org-agenda-no-heading-message)) (setq txt org-agenda-no-heading-message))
(when txt (when txt
(setq face (if pastschedp (setq face
'org-scheduled-previously (cond
'org-scheduled-today)) (pastschedp 'org-scheduled-previously)
(todayp 'org-scheduled-today)
(t 'org-schduled)))
(org-add-props txt props (org-add-props txt props
'undone-face face 'undone-face face
'face (if donep 'org-done 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) (when (fboundp 'set-face-attribute)
(set-face-attribute 'org-agenda-date-weekend nil :weight 'bold))) (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 (defface org-scheduled-today
(org-compatible-face nil (org-compatible-face nil
'((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) '((((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." "Face for items scheduled for a certain day."
:group 'org-faces) :group 'org-faces)
(defface org-scheduled-previously (defface org-scheduled-previously
(org-compatible-face nil (org-compatible-face nil
'((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick"))