|
@@ -85,6 +85,12 @@ today's agenda, even if they are not scheduled."
|
|
|
:version "24.1"
|
|
|
:type 'character)
|
|
|
|
|
|
+(defcustom org-habit-show-done-always-green nil
|
|
|
+ "Non-nil means DONE days will always be green in the consistency graph.
|
|
|
+It will be green even if it was done after the deadline."
|
|
|
+ :group 'org-habit
|
|
|
+ :type 'boolean)
|
|
|
+
|
|
|
(defface org-habit-clear-face
|
|
|
'((((background light)) (:background "#8270f9"))
|
|
|
(((background dark)) (:background "blue")))
|
|
@@ -272,8 +278,9 @@ Habits are assigned colors on the following basis:
|
|
|
(if donep
|
|
|
'(org-habit-ready-face . org-habit-ready-future-face)
|
|
|
'(org-habit-alert-face . org-habit-alert-future-face)))
|
|
|
- (t
|
|
|
- '(org-habit-overdue-face . org-habit-overdue-future-face)))))
|
|
|
+ ((and org-habit-show-done-always-green donep)
|
|
|
+ '(org-habit-ready-face . org-habit-ready-future-face))
|
|
|
+ (t '(org-habit-overdue-face . org-habit-overdue-future-face)))))
|
|
|
|
|
|
(defun org-habit-build-graph (habit starting current ending)
|
|
|
"Build a graph for the given HABIT, from STARTING to ENDING.
|