Bläddra i källkod

New face for upcoming deadlines in agenda

* lisp/org-faces.el (org-upcoming-distant-deadline-face): New face.
Alex Branham 7 år sedan
förälder
incheckning
f521400a08
2 ändrade filer med 12 tillägg och 3 borttagningar
  1. 5 1
      etc/ORG-NEWS
  2. 7 2
      lisp/org-faces.el

+ 5 - 1
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~

+ 7 - 2
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\").