From 3efe6f29a8a02aeb1c937f41a839c5dbaed59fe3 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 26 Nov 2009 09:04:53 +0100 Subject: [PATCH] Agenda: Show time-of-day in block also after day 1 Lukas Stelmach writes: > Isn't it wrong when a note like this: > > * A very interesting meeting 11:15-12:00 > <2009-11-30 Mon>--<2009-12-01 Tue> > > Shows up in the agenda time gird only on monday while being untimed on > tuesday? To make it right I do > > * A very interesting meeting > <2009-11-30 Mon 11:15>--<2009-11-30 Mon 12:00> > <2009-12-01 Tue 11:15>--<2009-12-01 Tue 12:00> > > or simply > > * A very interesting meeting 11:15-12:00 > <2009-11-30 Mon> > <2009-12-01 Tue> > > Which works but doesn't show the recurrence counter. --- lisp/ChangeLog | 3 +++ lisp/org-agenda.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64dd54836..81a362e1d 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-11-26 Carsten Dominik + * org-agenda.el (org-agenda-get-blocks): Look at time string also + on days after the first one. + * org.el (org-insert-heading): Also check for item before assuming before-first-heading condition. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index cf748f029..36baefd08 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4481,7 +4481,7 @@ FRACTION is what fraction of the head-warning time has passed." org-agenda-timerange-leaders) (1+ (- d0 d1)) (1+ (- d2 d1))) head category tags - (if (= d0 d1) timestr)))) + timestr))) (org-add-props txt props 'org-marker marker 'org-hd-marker hdmarker 'type "block" 'date date