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

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

Applied, thanks.

Stephen, woudl you ming changing your diff format to diff -u ?   
Somehow I have problems to apply your patches (already earlier...)

Thanks

- Carsten

On Mar 17, 2010, at 4:28 PM, Stephen Eglen wrote:

> Ok, here is a patch that introduces a new variable so that the code to
> extract times from diary entries entered using 'i d' is off by  
> default.
>
> 2010-03-17  Stephen Eglen  <stephen@gnu.org>
>
> 	* org-agenda.el (org-agenda-insert-diary-extract-time): New
> 	variable.
> 	(org-agenda-add-entry-to-org-agenda-diary-file): Use this new
> 	variable rather than org-agenda-search-headline-for-time.
>
> *** /tmp/ediff23195Zk	2010-03-17 15:22:42.000000000 +0000
> --- /home/stephen/langs/emacs/elisp-ds/org-mode/lisp/org-agenda.el	 
> 2010-03-17 15:20:56.000000000 +0000
> ***************
> *** 7066,7071 ****
> --- 7066,7076 ----
>  	  (const :tag "in a date tree" date-tree)
>  	  (const :tag "as top level at end of file" top-level)))
>
> + (defcustom org-agenda-insert-diary-extract-time nil
> +   "Non-nil means extract any time specification from the diary  
> entry."
> +   :group 'org-agenda
> +   :type 'boolean)
> +
>  (defun org-agenda-add-entry-to-org-agenda-diary-file (type text  
> &optional d1 d2)
>    "Add a diary entry with TYPE to `org-agenda-diary-file'.
>  If TEXT is not empty, it will become the headline of the new entry,  
> and
> ***************
> *** 7103,7109 ****
>        (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)
> --- 7108,7114 ----
>        (let*
>  	  (fmt time time2
>  	       (org-agenda-time-leading-zero t))
> ! 	(if org-agenda-insert-diary-extract-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)

- Carsten