summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Lee <jjl@pobox.com>2018-11-26 13:08:20 +0000
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-02-06 22:29:32 +0100
commit18b85aa3feaea5a8a9f630dead73db69c941b717 (patch)
tree77987b640e6137a8d6dc0f3ff15f3d541b381dba
parentba9111a7de9752d36b275940583e0f1631b2fa35 (diff)
downloadorg-mode-18b85aa3feaea5a8a9f630dead73db69c941b717.tar.gz
org-habit: Use face 'org-agenda-done for habits scheduled for future
* 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
-rw-r--r--lisp/org-agenda.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 203c1e9..2765718 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
@@ -6281,6 +6282,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))))