diff options
author | John Lee <jjl@pobox.com> | 2018-11-26 13:08:20 +0000 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-02-06 22:29:32 +0100 |
commit | 18b85aa3feaea5a8a9f630dead73db69c941b717 (patch) | |
tree | 77987b640e6137a8d6dc0f3ff15f3d541b381dba | |
parent | ba9111a7de9752d36b275940583e0f1631b2fa35 (diff) | |
download | org-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.el | 3 |
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)))) |