From f471768a54d8921ff383516af6a605adc061af30 Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Fri, 26 Jun 2020 13:09:50 +0200 Subject: [PATCH] habit: Fix color of habit for the very first done * lisp/org-habit.el (org-habit-build-graph): Check if on the very first "done" and set the standard color for done. Recent behavior: Give that very first done the color to mean "done ahead of schedule". --- lisp/org-habit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-habit.el b/lisp/org-habit.el index ec99a8f0b..8edeffc49 100644 --- a/lisp/org-habit.el +++ b/lisp/org-habit.el @@ -343,7 +343,9 @@ current time." (if (and in-the-past-p (not last-done-date) (not (< scheduled now))) - '(org-habit-clear-face . org-habit-clear-future-face) + (if (= start (car all-done-dates)) + '(org-habit-ready-face . org-habit-ready-future-face) + '(org-habit-clear-face . org-habit-clear-future-face)) (org-habit-get-faces habit start (and in-the-past-p