forked from mirrors/org-mode
ox-icalendar: Ensure that entries in icalendar end with a newline
* lisp/ox-icalendar.el (org-icalendar--vevent): (org-icalendar--vtodo): Make sure that there is a newline after the exported VEVENT and VTODO. Reported-by: Henrik Frisk <frisk.h@gmail.com> Link: https://orgmode.org/list/CAO0LSb4aQhUMny4xr=1LB3t5F-K-WnjK1zc+qR7Jy+69vr2wpw@mail.gmail.com
This commit is contained in:
parent
e203b5a659
commit
14bde5aba5
|
@ -809,7 +809,7 @@ Return VEVENT component as a string."
|
||||||
"CATEGORIES:" categories "\n"
|
"CATEGORIES:" categories "\n"
|
||||||
;; VALARM.
|
;; VALARM.
|
||||||
(org-icalendar--valarm entry timestamp summary)
|
(org-icalendar--valarm entry timestamp summary)
|
||||||
"END:VEVENT")))
|
"END:VEVENT\n")))
|
||||||
|
|
||||||
(defun org-icalendar--repeater-type (elem)
|
(defun org-icalendar--repeater-type (elem)
|
||||||
"Return ELEM's repeater-type if supported, else warn and return nil."
|
"Return ELEM's repeater-type if supported, else warn and return nil."
|
||||||
|
@ -952,7 +952,7 @@ repeater on DEADLINE but not SCHEDULED. Skipping.")
|
||||||
(if (eq (org-element-property :todo-type entry) 'todo)
|
(if (eq (org-element-property :todo-type entry) 'todo)
|
||||||
"NEEDS-ACTION"
|
"NEEDS-ACTION"
|
||||||
"COMPLETED"))
|
"COMPLETED"))
|
||||||
"END:VTODO")))
|
"END:VTODO\n")))
|
||||||
|
|
||||||
(defun org-icalendar--valarm (entry timestamp summary)
|
(defun org-icalendar--valarm (entry timestamp summary)
|
||||||
"Create a VALARM component.
|
"Create a VALARM component.
|
||||||
|
|
Loading…
Reference in New Issue