forked from mirrors/org-mode
org-habit: Mouse over habit graph displays date
* lisp/org-habit.el (org-habit-build-graph): Display the date also for day when the task has not been marked done. If the task has been marked done the string "DONE" appears in the display. Hint: With { M-x tooltip-mode } the date appears in a tooltip
This commit is contained in:
parent
18b85aa3fe
commit
0da4491622
|
@ -396,9 +396,6 @@ current time."
|
|||
|
||||
(aset graph index org-habit-completed-glyph)
|
||||
(setq markedp t)
|
||||
(put-text-property
|
||||
index (1+ index) 'help-echo
|
||||
(format-time-string (org-time-stamp-format) done-time) graph)
|
||||
(while (and done-dates
|
||||
(= start (car done-dates)))
|
||||
(setq last-done-date (car done-dates)
|
||||
|
@ -412,7 +409,14 @@ current time."
|
|||
(not (eq face 'org-habit-overdue-face))
|
||||
(not markedp))
|
||||
(setq face (cdr faces)))
|
||||
(put-text-property index (1+ index) 'face face graph))
|
||||
(put-text-property index (1+ index) 'face face graph)
|
||||
(put-text-property index (1+ index)
|
||||
'help-echo
|
||||
(concat (format-time-string
|
||||
(org-time-stamp-format)
|
||||
(time-add starting (days-to-time (- start (time-to-days starting)))))
|
||||
(if donep " DONE" ""))
|
||||
graph))
|
||||
(setq start (1+ start)
|
||||
index (1+ index)))
|
||||
graph))
|
||||
|
|
Loading…
Reference in New Issue