>From 4ed18aa7aa13ac02784ad536fff5d5719f2942b9 Mon Sep 17 00:00:00 2001 From: Niels Giesen Date: Fri, 11 Feb 2011 13:59:12 +0100 Subject: [PATCH] Add uid text property to diary entries * lisp/org-icalendar.el (org-print-icalendar-entries): Add 'uid text property based on the ID property of the org entry to the first character of the diary entry. This text property can be used by `icalendar--create-uid', instead of creating a uid by itself. NOTE: `icalendar--create-uid' should be patched to pick up this uid. TINYCHANGE --- lisp/org-icalendar.el | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/lisp/org-icalendar.el b/lisp/org-icalendar.el index 3583e6a..093ff93 100644 --- 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 -- 1.7.1