From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Lee Subject: [PATCH 3/3] org-habit: Use face 'org-agenda-done for habits scheduled for future Date: Sun, 03 Feb 2019 15:46:18 +0000 Message-ID: <1549208778.1789840.1649835512.14A3B431@webmail.messagingengine.com> Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([209.51.188.92]:50340) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gqJyP-0006uD-GH for emacs-orgmode@gnu.org; Sun, 03 Feb 2019 10:46:22 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gqJyN-0003ui-St for emacs-orgmode@gnu.org; Sun, 03 Feb 2019 10:46:20 -0500 Received: from wout2-smtp.messagingengine.com ([64.147.123.25]:34617) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gqJyN-0003st-ND for emacs-orgmode@gnu.org; Sun, 03 Feb 2019 10:46:19 -0500 Received: from compute7.internal (compute7.nyi.internal [10.202.2.47]) by mailout.west.internal (Postfix) with ESMTP id C93991FC8 for ; Sun, 3 Feb 2019 10:46:18 -0500 (EST) 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: emacs-orgmode@gnu.org * lisp/org-agenda.el (org-agenda-get-scheduled): Use the face. This has the effect that if you just did the habit, it is "greyed out" in the agenda. TINYCHANGE --- lisp/org-agenda.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 39ae85f30..17fa3e519 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6165,6 +6165,7 @@ scheduled items with an hour specification like [h]h:mm." (diff (- current schedule)) (warntime (get-text-property (point) 'org-appt-warntime)) (pastschedp (< schedule today)) + (futureschedp (> schedule today)) (habitp (and (fboundp 'org-is-habit-p) (org-is-habit-p))) (suppress-delay (let ((deadline (and org-agenda-skip-scheduled-delay-if-deadline @@ -6285,6 +6286,8 @@ scheduled items with an hour specification like [h]h:mm." head level category tags time nil habitp)) (face (cond ((and (not habitp) pastschedp) 'org-scheduled-previously) + ((and habitp futureschedp) + 'org-agenda-done) (todayp 'org-scheduled-today) (t 'org-scheduled))) (habitp (and habitp (org-habit-parse-todo)))) -- 2.17.1