Function: diary-icalendar-vtodo-skeleton

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

Signature

(diary-icalendar-vtodo-skeleton VTODO)

Documentation

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

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-icalendar.el.gz
(defun di:vtodo-skeleton (vtodo)
  "Default skeleton to format an `icalendar-vtodo' for the diary."
  (ignore vtodo)  ; we only need the dynamic `ical-*' variables here
  (skeleton-insert
   '(nil
     (when ical-nonmarking diary-nonmarking-symbol)
     (or ical-rrule-sexp ical-due) & " "
     (when ical-due "Due: ") summary
     (when start (concat " (Start: " ical-start ")"))
     "\n"
     @ ; start of body (for indentation)
     & "\n" (when ical-url "URL: ") & ical-url
     & "\n" (when ical-status "Status: ") & ical-status
     & "\n" (when ical-completed "Completed: ") & ical-completed
     & "\n" (when ical-percent-complete
              (format "Progress: %d%%" ical-percent-complete))
     & "\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
     & "\n" (when ical-description "Description: ") & ical-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"))))