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)
|
(aset graph index org-habit-completed-glyph)
|
||||||
(setq markedp t)
|
(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
|
(while (and done-dates
|
||||||
(= start (car done-dates)))
|
(= start (car done-dates)))
|
||||||
(setq last-done-date (car done-dates)
|
(setq last-done-date (car done-dates)
|
||||||
|
@ -412,7 +409,14 @@ current time."
|
||||||
(not (eq face 'org-habit-overdue-face))
|
(not (eq face 'org-habit-overdue-face))
|
||||||
(not markedp))
|
(not markedp))
|
||||||
(setq face (cdr faces)))
|
(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)
|
(setq start (1+ start)
|
||||||
index (1+ index)))
|
index (1+ index)))
|
||||||
graph))
|
graph))
|
||||||
|
|
Loading…
Reference in New Issue