Function: diary-icalendar-vjournal-skeleton

diary-icalendar-vjournal-skeleton is a byte-compiled function defined in diary-icalendar.el.gz.

Signature

(diary-icalendar-vjournal-skeleton VJOURNAL)

Documentation

Default skeleton to format an icalendar-vjournal for the diary.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-icalendar.el.gz
(defun di:vjournal-skeleton (vjournal)
  "Default skeleton to format an `icalendar-vjournal' for the diary."
  (ignore vjournal)  ; we only need the dynamic `ical-*' variables here
  (skeleton-insert
   '(nil
     (when (or ical-nonmarking di:import-vjournal-as-nonmarking)
       diary-nonmarking-symbol)
     (or ical-rrule-sexp ical-start) & " "
     ical-summary "\n"
     @ ; start of body (for indentation)
     & "\n" (when ical-url "URL: ") & ical-url
     & "\n" (when ical-status "Status: ") & ical-status
     & "\n" (when ical-organizer "Organizer: ") & ical-organizer
     & "\n" (di:format-list ical-attendees "Attendee")
     & "\n" (di:format-list ical-categories "Category" "Categories")
     & "\n" (di:format-list ical-comments "Comment")
     & "\n" (di:format-list ical-contacts "Contact")
     & "\n" (di:format-list ical-attachments "Attachment")
     & "\n" (when (and ical-importing ical-access) "Access: ") & ical-access
     & "\n" (when (and ical-importing ical-uid) "UID: ") & ical-uid
     ;; In a vjournal, multiple `icalendar-description's are allowed:
     & "\n" (di:format-list ical-descriptions "Description")
     & "\n"
     @ ; end of body
     (let* ((end (pop skeleton-positions))
            (start (pop skeleton-positions)))
       (indent-code-rigidly start end 1)
       nil) ; Don't insert return value
     (when ical-importing "\n"))))