Function: diary-icalendar-time-block-sexp-to-start-end

diary-icalendar-time-block-sexp-to-start-end is a byte-compiled function defined in diary-icalendar.el.gz.

Signature

(diary-icalendar-time-block-sexp-to-start-end SEXP &optional VTIMEZONE)

Documentation

Convert diary-time-block SEXP to icalendar-dtstart and icalendar-dtend.

Returns a pair of nodes (START END).

VTIMEZONE, if specified, should be an icalendar-vtimezone. Times in SEXP will be reinterpreted as local to VTIMEZONE, as UTC, or as floating times according to diary-icalendar-time-zone-export-strategy.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-icalendar.el.gz
(defun di:time-block-sexp-to-start-end (sexp &optional vtimezone)
  "Convert `diary-time-block' SEXP to `icalendar-dtstart' and `icalendar-dtend'.
Returns a pair of nodes (START END).

VTIMEZONE, if specified, should be an `icalendar-vtimezone'.  Times in
SEXP will be reinterpreted as local to VTIMEZONE, as UTC, or as floating
times according to `diary-icalendar-time-zone-export-strategy'."
  (let* ((start (plist-get sexp :start))
         (dtstart (di:convert-time-via-strategy start vtimezone))
         (end (plist-get sexp :end))
         (dtend (di:convert-time-via-strategy end vtimezone))
         (tzid (ical:with-property-of vtimezone 'ical:tzid)))
    (list (ical:make-property ical:dtstart dtstart (ical:tzidparam tzid))
          (ical:make-property ical:dtend dtend (ical:tzidparam tzid)))))