emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH 3/3] org-habit: Use face 'org-agenda-done for habits schedule


From: John Lee
Subject: [O] [PATCH 3/3] org-habit: Use face 'org-agenda-done for habits scheduled for future
Date: Sun, 03 Feb 2019 15:46:18 +0000

* 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]