[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Status google calendar sync
From: |
Bastien |
Subject: |
Re: [O] Status google calendar sync |
Date: |
Thu, 30 Jun 2011 18:14:25 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
Niels Giesen <address@hidden> writes:
> --- a/lisp/org-icalendar.el
> +++ b/lisp/org-icalendar.el
> @@ -412,7 +412,10 @@ When COMBINE is non nil, add the category to each line."
> (if scheduledp (setq summary (concat "S: " summary)))
> (if (string-match "\\`<%%" ts)
> (with-current-buffer sexp-buffer
> - (insert (substring ts 1 -1) " " summary "\n"))
> + (let ((entry (substring ts 1 -1)))
> + (put-text-property 0 1 'uid
> + (concat " " prefix uid) entry)
> + (insert entry " " summary "\n")))
> (princ (format "BEGIN:VEVENT
> UID: %s
> %s
(Note that this has been applied.)
--
Bastien