From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Branham Subject: Re: face for upcoming deadlines in agenda Date: Mon, 26 Feb 2018 16:44:51 -0600 Message-ID: <87y3jfv09o.fsf@gmail.com> References: <878tbf8xg9.fsf@gmail.com> <87606jz9b2.fsf@nicolasgoaziou.fr> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57457) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eqRVy-00023J-Nb for emacs-orgmode@gnu.org; Mon, 26 Feb 2018 17:44:59 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eqRVv-0005WL-AM for emacs-orgmode@gnu.org; Mon, 26 Feb 2018 17:44:58 -0500 Received: from mail-ot0-x22c.google.com ([2607:f8b0:4003:c0f::22c]:33017) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eqRVv-0005Va-2Q for emacs-orgmode@gnu.org; Mon, 26 Feb 2018 17:44:55 -0500 Received: by mail-ot0-x22c.google.com with SMTP id y11so2035517otg.0 for ; Mon, 26 Feb 2018 14:44:54 -0800 (PST) In-reply-to: <87606jz9b2.fsf@nicolasgoaziou.fr> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Nicolas Goaziou Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain I've attached a patch which gives a name to the 0.0 face in org-agenda-deadline-faces. This lets themes customize the value more easily. (I've already signed the FSF copyright papers) Thanks again! Alex ---------------------------------------------------------------------- >From 1a3f167583f9c964b37f92f2f0a4d67840749677 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Mon, 26 Feb 2018 16:41:40 -0600 Subject: [PATCH] * lisp/org-faces.el(org-upcoming-distant-deadline-face): new face --- lisp/org-faces.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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\"). -- 2.16.2 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-lisp-org-faces.el-org-upcoming-distant-deadline-face.patch >From 1a3f167583f9c964b37f92f2f0a4d67840749677 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Mon, 26 Feb 2018 16:41:40 -0600 Subject: [PATCH] * lisp/org-faces.el(org-upcoming-distant-deadline-face): new face --- lisp/org-faces.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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\"). -- 2.16.2 --=-=-=--