Re: Re: icalendar: exporting times of day specified in heading?

[Carsten Dominik <carsten.dominik@gmail.com>]

Hi Stephen,

this is an interesting patch.  I am a bit uneasy because
it changes the entered text and that may work better in
some cases than in others.  However, as the resulting agenda
entry is the same, I have applied the patch.  We'll see how
it goes - maybe we do need to add another variable for this
eventually.

Thanks!

- Carsten


On Feb 2, 2010, at 2:16 PM, Stephen Eglen wrote:

>>
>> I often use org-agenda-diary-entry to make simple entries into
>> an agenda.org file.  I see that the agenda is clever enough to  
>> recognise
>> if a time range has been typed into the heading.  However, this time
>> range is not exported by the icalendar code.
>
> Attached is a patch to the code underlying 'i d' entries in the *Org
> Agenda* buffer.  If a time of day is specified in the entry, it is
> extracted from the entry and put into the timestamp of the diary  
> entry.
> (The .ics exporting code recognises these timestamps and therefore the
> ics export code does not need altering.)
>
> For example, given the following three entries added using 'i d' from
> *Org Agenda*:
>
> i d RET test 1 12:00-14:00 classes RET
> i d RET test 2 did you get 7am wake up call? RET
> i d RET test 3 find 3--5 volunteers RET
>
> then the following entries are added to agenda.org:
>
> *** 2010-02-03 Wednesday
>
> **** test 3 find 3--5 volunteers
>     <2010-02-03 Wed>
> **** test 2 did you get wake up call?
>     <2010-02-03 Wed 07:00>
> **** test 1 classes
>     <2010-02-03 Wed 12:00-14:00>
>
> As this behvaiour may not be desired by all, I've currently put the  
> code
> conditional on org-agenda-search-headline-for-time being non-nil (the
> default is t).  If that variable is nil, then the above three test
> entries generates the regular tree:
>
> *** 2010-02-03 Wednesday
>
> **** test 3 find 3--5 volunteers
>     <2010-02-03 Wed>
> **** test 2 did you get 7am wake up call?
>     <2010-02-03 Wed>
> **** test 1 12:00-14:00 classes
>     <2010-02-03 Wed>
>
>
> Perhaps org-agenda-search-headline-for-time is not the right variable
> though (happy to had another) given that it defaults to t?
>
> Stephen
>
> 2010-02-02  Stephen Eglen  <stephen@gnu.org>
>
> 	* org-agenda.el (org-agenda-add-entry-to-org-agenda-diary-file):
> 	Optionally extract time specification from text and add to the
> 	timestamp.
>
> *** /tmp/ediff11782joC	2010-02-02 13:07:49.000000000 +0000
> --- /home/stephen/langs/emacs/elisp-ds/org-mode/lisp/org-agenda.el	 
> 2010-02-02 09:48:10.000000000 +0000
> ***************
> *** 6891,6903 ****
>  	(insert (format "%%%%(diary-anniversary %s) %s"
>  			(calendar-date-string d1 nil t) text))))
>       ((eq type 'day)
> !       (if (eq org-agenda-insert-diary-strategy 'top-level)
> ! 	  (org-agenda-insert-diary-as-top-level text)
> ! 	(require 'org-datetree)
> ! 	(org-datetree-find-date-create d1)
> ! 	(org-agenda-insert-diary-make-new-entry text))
> !       (org-insert-time-stamp (org-time-from-absolute
> ! 			      (calendar-absolute-from-gregorian d1)))
>        (end-of-line 0))
>       ((eq type 'block)
>        (if (> (calendar-absolute-from-gregorian d1)
> --- 6891,6919 ----
>  	(insert (format "%%%%(diary-anniversary %s) %s"
>  			(calendar-date-string d1 nil t) text))))
>       ((eq type 'day)
> !       (let*
> ! 	  (fmt time time2
> ! 	       (org-agenda-time-leading-zero t))
> ! 	(if org-agenda-search-headline-for-time
> ! 	    ;; Use org-format-agenda-item to parse text for a time-range  
> and
> ! 	    ;; remove it.
> ! 	    (setq fmt (org-format-agenda-item nil text nil nil t)
> ! 		  time (get-text-property 0 'time fmt)
> ! 		  time2 (if (> (length time) 0)
> ! 			    ;; split-string removes trailing ...... if
> ! 			    ;; no end time given.  First space
> ! 			    ;; separates time from date.
> ! 			    (concat " " (car (split-string time "\\.")))
> ! 			  nil)
> ! 		  text (get-text-property 0 'txt fmt)))
> ! 	(if (eq org-agenda-insert-diary-strategy 'top-level)
> ! 	    (org-agenda-insert-diary-as-top-level text)
> ! 	  (require 'org-datetree)
> ! 	  (org-datetree-find-date-create d1)
> ! 	  (org-agenda-insert-diary-make-new-entry text))
> ! 	(org-insert-time-stamp (org-time-from-absolute
> ! 				(calendar-absolute-from-gregorian d1))
> ! 			       nil nil nil nil time2))
>        (end-of-line 0))
>       ((eq type 'block)
>        (if (> (calendar-absolute-from-gregorian d1)
>
>
> _______________________________________________
> 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