[Orgmode] [PATCH] (org-habit-build-graph): Help-echo date when mouse is over stars.

[Mikael Fornius]

Hi John, Carsten and fellow orgs.
 
This patch introduces a small new feature in org-habit I have wanted
for a while:

When mouse is over a done-star in the habit-graph I get a help-echo
with the date.

This is useful because I use many preceeding days and there is no easy
way (that I know of) to find the done-dates when viewing the graph.
Often I ask myself 'hmm when did I do this habit lately' when I am
visually evaluating the habit graph and I get stuck, annoying :)

I think this is a small and tasty feature so feel free to use it in
org-habit if you like it.

---
 lisp/ChangeLog    |    5 +++++
 lisp/org-habit.el |    4 +++-
 2 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f1a507..a168d73 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-04  Mikael Fornius  <address@hidden>
+
+       * org-habit.el (org-habit-build-graph): Help-echo date when
+       mouse is over stars.
+
 2010-05-02  Dan Davison  <address@hidden>
 
        * org-src.el (org-edit-src-code): allow-write-back-p had
diff --git a/lisp/org-habit.el b/lisp/org-habit.el
index bb8773e..a3a4d19 100644
--- a/lisp/org-habit.el
+++ b/lisp/org-habit.el
@@ -280,9 +280,11 @@ current time."
                       donep)))
             markedp face)
        (if donep
-           (progn
+           (let ((done-time (time-add starting (days-to-time (- start 
(time-to-days starting))))))
              (aset graph index ?*)
              (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)
-- 
1.7.1