diff options
| author | fpi | 2024-09-17 20:25:32 +0200 |
|---|---|---|
| committer | fpi | 2024-09-17 21:35:39 +0200 |
| commit | 7b7af0423813918ccda28f12022892386b965d6f (patch) | |
| tree | 61f457600e33391635a22c95d050efc937c24cdb | |
| parent | Add autoload, fix gnus-icalendar-event-request (diff) | |
Cleanup description \n escape
| -rw-r--r-- | README.org | 2 | ||||
| -rw-r--r-- | gnus-icalendar-request.el | 14 |
2 files changed, 6 insertions, 10 deletions
@@ -15,7 +15,7 @@ Extension of gnus-icalendar to format icalendar event requests based on [[https: - [ ] Updating event time :: ** Code TODOs -- [ ] Cleanup description creation +- [X] Cleanup description creation - [ ] Check attendee capturing from email ~From~ header. - [ ] Based on insertion method remove the multipart section or switch ~multipart/alternative~ if ~text/plain~ contains the same data as the ~text/calendar~ part. - [ ] Split default attendee line format into a ~defvar~ in ~gnus-icalendar--format-attendee~. diff --git a/gnus-icalendar-request.el b/gnus-icalendar-request.el index 95256bd..4711be1 100644 --- a/gnus-icalendar-request.el +++ b/gnus-icalendar-request.el @@ -51,16 +51,12 @@ role." (with-slots (summary description location organizer recur uid start-time end-time req-participants opt-participants) event (let ((dtstamp (format-time-string "DTSTAMP:%Y%m%dT%H%M%SZ" nil t)) ;; current UTC time (summary (format "SUMMARY:%s" summary)) - (description (when (and (stringp description) (not (string-empty-p description))) + (description (when (and (stringp description) + (not (string-empty-p description))) (format "DESCRIPTION:%s" - (with-temp-buffer - (insert description) - (beginning-of-buffer) - (while (re-search-forward "\n" nil t) - (replace-match "\\n" t t)) - (buffer-string))))) ;; TODO: How to do this properly? - (dtstart (format-time-string "DTSTART:%Y%m%dT%H%M%SZ" start-time t)) ;; start-time in UTC - (dtend (format-time-string "DTEND:%Y%m%dT%H%M%SZ" end-time t)) ;; end-time in UTC + (string-replace "\n" "\\n" description)))) + (dtstart (format-time-string "DTSTART:%Y%m%dT%H%M%SZ" start-time t)) ;; in UTC -> suffix "Z" + (dtend (format-time-string "DTEND:%Y%m%dT%H%M%SZ" end-time t)) (attendee (gnus-icalendar--create-attendee-list req-participants opt-participants)) (location (when (and (stringp location) (not (string-empty-p location))) (format "LOCATION:%s" location))) |