summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorniels giesen <niels.giesen@gmail.com>2011-09-30 19:41:35 +0000
committerCarsten Dominik <carsten.dominik@gmail.com>2011-10-05 16:46:18 +0200
commit3d83564b7de362f2bee602fd63e0d90dd4fe3ce8 (patch)
tree314ca6aa73b602cae393549e3f5f997396f5cf12
parent1790d6c07378f4e2c900dd1cfe70c09d51ba2b6c (diff)
downloadorg-mode-3d83564b7de362f2bee602fd63e0d90dd4fe3ce8.tar.gz
Time range end in agenda view not displayed
Giovanni Ridolfi <giovanni.ridolfi@yahoo.it> writes: > michael holzer <michi_holzer_news@gmx.at> writes: > >> When I have an entry that contains a time range, for example: >> >> * timerange >> <2011-09-30 Fri 14:00>--<2011-09-30 Fri 18:00> >> >> this shows up in the agenda view as: >> >> uni: 14:00...... timerange >> >> while I would expect something like: >> >> uni: 14:00-18:00 timerange >> > > |the manual says: > |Time ranges can be specified with two timestamps, > |like ‘<2005-05-10 Tue 20:30>--<2005-05-10 Tue 22:15>’. > | > | 20:30-22:15 Marvin escorts the Hitchhikers to the bridge > > I confirm this bug. > > Org-mode version 7.7 0e9d401519c020af29a7e35da7acfca25e6c3be4 > GNU Emacs 23.3.1 (i386-mingw-nt5.1.2600) of 2011-03-10 on 3249CTO > > Giovanni > > Funny enough, I noticed this too last week, so I whipped up this patch. It inserts the range when start date is the same as the end date. Please test (it's still young) && include in Org if you so please. #+begin_src diff >From dcf81753aa5cab311f2a3a0272e4691e4bc6ea38 Mon Sep 17 00:00:00 2001 From: Niels Giesen <niels.giesen@gmail.com> Date: Mon, 26 Sep 2011 11:43:55 +0200 Subject: [PATCH] Show timestamp ranges in agenda * lisp/org-agenda.el (org-agenda-get-blocks): Show timestamp ranges in agenda if start day is same as end day
-rw-r--r--lisp/org-agenda.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 8186ff4..ae8c496 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5403,7 +5403,9 @@ FRACTION is what fraction of the head-warning time has passed."
org-agenda-timerange-leaders)
(1+ (- d0 d1)) (1+ (- d2 d1)))
head category tags
- (cond ((= d1 d0)
+ (cond ((and (= d1 d0) (= d2 d0))
+ (concat "<" start-time ">--<" end-time ">"))
+ ((= d1 d0)
(concat "<" start-time ">"))
((= d2 d0)
(concat "<" end-time ">"))