diff options
author | Takaaki ISHIKAWA <takaxp@ieee.org> | 2010-04-28 17:27:37 +0900 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-04-28 17:00:40 +0200 |
commit | e41f76a1f73605f63af1baae3add74a8a73b8e35 (patch) | |
tree | 7adbe6715aa7fb5c41e937380d1ef019262f660e | |
parent | 3c9a47cccc32fdbc66ebb10372a47f529da28e88 (diff) | |
download | org-mode-e41f76a1f73605f63af1baae3add74a8a73b8e35.tar.gz |
Add a description attribute to an exported iCal file.
-rw-r--r-- | lisp/org-icalendar.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/org-icalendar.el b/lisp/org-icalendar.el index 17841dc..d452d05 100644 --- a/lisp/org-icalendar.el +++ b/lisp/org-icalendar.el @@ -47,6 +47,11 @@ The file name should be absolute, the file will be overwritten without warning." :group 'org-export-icalendar :type 'string) +(defcustom org-icalendar-combined-description nil + "Calendar description for the combined iCalendar representing all agenda files." + :group 'org-export-icalendar + :type 'string) + (defcustom org-icalendar-use-plain-timestamp t "Non-nil means make an event from every plain time stamp." :group 'org-export-icalendar @@ -563,14 +568,16 @@ not used right now." (name (or name "unknown")) (timezone (if (> (length org-icalendar-timezone) 0) org-icalendar-timezone - (cadr (current-time-zone))))) + (cadr (current-time-zone)))) + (description org-icalendar-combined-description)) (princ (format "BEGIN:VCALENDAR VERSION:2.0 X-WR-CALNAME:%s PRODID:-//%s//Emacs with Org-mode//EN X-WR-TIMEZONE:%s -CALSCALE:GREGORIAN\n" name user timezone)))) +X-WR-CALDESC:%s +CALSCALE:GREGORIAN\n" name user timezone description)))) (defun org-finish-icalendar-file () "Finish an iCalendar file by inserting the END statement." |