tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix to the habit consistency graph builder

Browse source
This commit is contained in:
John Wiegley 2009-10-22 06:24:21 -04:00
parent 824c8c0dba
commit 14ac7bef8b
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -14,6 +14,9 @@
2009-10-22 John Wiegley <jwiegley@gmail.com>
* org-habit.el (org-habit-build-graph): Fix to the graph building
when last DONE date is earlier than `org-habit-preceding-days'.
* org-clock.el (org-resolve-clocks-if-idle): Fix to the way idle
time is reported after the user comes back (but before they
resolve time).

8
lisp/org-habit.el
View file

@ -278,10 +278,10 @@ Habits are assigned colors on the following basis:
(graph (make-string (1+ (- (time-to-days ending)
(time-to-days starting))) ?\ ))
(index 0))
(if done-dates
(while (time-less-p (car done-dates) starting)
(setq last-done-date (car done-dates)
done-dates (cdr done-dates))))
(while (and done-dates
(time-less-p (car done-dates) starting))
(setq last-done-date (car done-dates)
done-dates (cdr done-dates)))
(while (time-less-p day ending)
(let* ((now-days (time-to-days day))
(in-the-past-p (< now-days current-days))