|
@@ -343,7 +343,8 @@ current time."
|
|
(if (and in-the-past-p
|
|
(if (and in-the-past-p
|
|
(not last-done-date)
|
|
(not last-done-date)
|
|
(not (< scheduled now)))
|
|
(not (< scheduled now)))
|
|
- (if (= start (car all-done-dates))
|
|
|
|
|
|
+ (if (and all-done-dates (= (car all-done-dates) start))
|
|
|
|
+ ;; This is the very first done of this habit.
|
|
'(org-habit-ready-face . org-habit-ready-future-face)
|
|
'(org-habit-ready-face . org-habit-ready-future-face)
|
|
'(org-habit-clear-face . org-habit-clear-future-face))
|
|
'(org-habit-clear-face . org-habit-clear-future-face))
|
|
(org-habit-get-faces
|
|
(org-habit-get-faces
|