From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] (org-habit-build-graph): Help-echo date when mouse is over stars. Date: Thu, 13 May 2010 07:45:46 +0200 Message-ID: <9A674B1E-18DB-4B9D-89B2-EC03078AD5C2@gmail.com> References: <1272969347-5431-1-git-send-email-mfo@abc.se> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=60176 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OCRFQ-0007Fa-5u for emacs-orgmode@gnu.org; Thu, 13 May 2010 01:46:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OCRFJ-00029Y-8T for emacs-orgmode@gnu.org; Thu, 13 May 2010 01:46:16 -0400 In-Reply-To: <1272969347-5431-1-git-send-email-mfo@abc.se> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Mikael Fornius Cc: johnw@gnu.org, emacs-orgmode@gnu.org Applied, thanks - sorry this took so long. - Carsten On May 4, 2010, at 12:35 PM, Mikael Fornius wrote: > 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 > + > + * org-habit.el (org-habit-build-graph): Help-echo date when > + mouse is over stars. > + > 2010-05-02 Dan Davison > > * 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 > > > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten