mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-05 11:45:52 +00:00
Code

Add option to always show DONE days as green on consistency graph. It can be enabled by setting `org-habit-show-done-alwyays-green' variable to t.

Browse Source 
* lisp/org-habit.el (org-habit-get-faces): Add show done days green option.
This commit is contained in:
Max Mikhanosha 2013-05-06 09:26:10 -04:00 committed by Bastien Guerry
parent 6871bdc8e7
commit 0f5cbc1019
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-habit.el
View File

@ -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.