9574 |
(let ((user user-full-name) |
(let ((user user-full-name) |
9575 |
(calname "something") |
(calname "something") |
9576 |
(name (or name "unknown")) |
(name (or name "unknown")) |
9577 |
(timezone "FIXME")) |
(timezone "Europe/Amsterdam")) ;; FIXME: How to get the real timezone? |
9578 |
(princ |
(princ |
9579 |
(format "BEGIN:VCALENDAR |
(format "BEGIN:VCALENDAR |
9580 |
VERSION:2.0 |
VERSION:2.0 |
9581 |
X-WR-CALNAME:%s |
X-WR-CALNAME:%s |
9582 |
PRODID:-//%s//Emacs with Org-mode//EN |
PRODID:-//%s//Emacs with Org-mode//EN |
9583 |
X-WR-TIMEZONE:Europe/Amsterdam |
X-WR-TIMEZONE:Europe/%s |
9584 |
CALSCALE:GREGORIAN\n" name user timezone)))) |
CALSCALE:GREGORIAN\n" name user timezone)))) |
9585 |
|
|
9586 |
(defun org-finish-icalendar-file () |
(defun org-finish-icalendar-file () |