From f521400a0892bc72ed4d161e11310a981a6abf24 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Mon, 26 Feb 2018 18:41:02 -0600 Subject: [PATCH] New face for upcoming deadlines in agenda * lisp/org-faces.el (org-upcoming-distant-deadline-face): New face. --- etc/ORG-NEWS | 6 +++++- lisp/org-faces.el | 9 +++++++-- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index bd3def335..da189eed5 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -193,7 +193,6 @@ you should expect to see something like: #+BEGIN_EXAMPLE ,#+STARTUP: shrink #+END_EXAMPLE - ** New functions *** ~org-insert-structure-template~ @@ -228,6 +227,11 @@ Org Tempo may be used as a replacement. See details above. ** Miscellaneous +*** New face: ~org-upcoming-distant-deadline~ + +It is meant to be used as the face for distant deadlines, see +~org-agenda-deadline-faces~ + *** ~org-paste-subtree~ no longer breaks sections Unless point is at the beginning of a headline, ~org-paste-subtree~ diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 750ada1e9..ef00f5b2c 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -511,13 +511,18 @@ which days belong to the weekend." (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red" :bold t)) (t (:bold t))) - "Face for items scheduled previously, and not yet done." + "Face for items scheduled previously, and not yet done. +See also `org-agenda-deadline-faces'." :group 'org-faces) +(defface org-upcoming-distant-deadline '((t :inherit org-default)) + "Face for items scheduled previously, not done, and have a distant deadline. +See also `org-agenda-deadline-faces'.") + (defcustom org-agenda-deadline-faces '((1.0 . org-warning) (0.5 . org-upcoming-deadline) - (0.0 . default)) + (0.0 . org-upcoming-distant-deadline)) "Faces for showing deadlines in the agenda. This is a list of cons cells. The cdr of each cell is a face to be used, and it can also just be like \\='(:foreground \"yellow\").