Function: diary-icalendar-block-sexp-to-recurrence

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

Signature

(diary-icalendar-block-sexp-to-recurrence SEXP)

Documentation

Convert diary-block SEXP to icalendar-dtstart and icalendar-rrule nodes.

Returns a pair of nodes (START RRULE).

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-icalendar.el.gz
(defun di:block-sexp-to-recurrence (sexp)
  "Convert `diary-block' SEXP to `icalendar-dtstart' and `icalendar-rrule' nodes.
Returns a pair of nodes (START RRULE)."
  (let* ((dtstart (diary-make-date (nth 1 sexp) (nth 2 sexp) (nth 3 sexp)))
         (end (diary-make-date (nth 4 sexp) (nth 5 sexp) (nth 6 sexp)))
         (rrule `((FREQ DAILY)
                  (UNTIL ,end))))
    (list (ical:make-property ical:dtstart dtstart
            (ical:valuetypeparam 'ical:date))
          (ical:make-property ical:rrule rrule))))