[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH] (org-habit-build-graph): Help-echo date when mouse is
From: |
Mikael Fornius |
Subject: |
[Orgmode] [PATCH] (org-habit-build-graph): Help-echo date when mouse is over stars. |
Date: |
Tue, 4 May 2010 12:35:47 +0200 |
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
- [Orgmode] [PATCH] (org-habit-build-graph): Help-echo date when mouse is over stars.,
Mikael Fornius <=