* FEATURE: gnus-icalendar appt participants synced to org
@ 2013-11-14 23:19 Jan Tatarik
2013-11-15 0:07 ` Katsumi Yamaoka
0 siblings, 1 reply; 2+ messages in thread
From: Jan Tatarik @ 2013-11-14 23:19 UTC (permalink / raw)
To: ding
[-- Attachment #1: Type: text/plain, Size: 435 bytes --]
Hi,
the enclosed patch adds two features to gnus-icalendar:
- the article buffer now shows a new field 'Attendance' with values of
either 'Required' or 'Optional' - good to know which meetings are safe
to ignore
- appointments exported to org outline now contain additional properties
PARTICIPATION_REQUIRED (t when required), REQ_PARTICIPANTS (list of
required attendees) and OPT_PARTICIPANTS (list of optional attendees)
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: participants_to_org.patch --]
[-- Type: text/x-diff, Size: 7252 bytes --]
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45af3d8c6b35de1e5479de1518dcfe7be288dad4..5dc27dddb6fc1d4e64c3ff5e17e59caaad5b18da 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2013-11-15 Jan Tatarik <jan.tatarik@gmail.com>
+
+ * gnus-icalendar.el (gnus-icalendar-event->gnus-calendar)
+ (gnus-icalendar-event-from-ical)
+ (gnus-icalendar-event->org-entry)
+ (gnus-icalendar--update-org-event): Required/optional participation,
+ list of attendees synced to org.
+
2013-11-13 Jan Tatarik <jan.tatarik@gmail.com>
* gnus-icalendar.el (gnus-icalendar-event:sync-to-org)
diff --git a/lisp/gnus-icalendar.el b/lisp/gnus-icalendar.el
index 064ba84cadc907ebe31cc83f7610927d50c9315a..a8277635f3e1571722a01cb4b0fe4452ca7d2434 100644
--- a/lisp/gnus-icalendar.el
+++ b/lisp/gnus-icalendar.el
@@ -91,7 +91,19 @@
(rsvp :initarg :rsvp
:accessor gnus-icalendar-event:rsvp
:initform nil
- :type (or null boolean)))
+ :type (or null boolean))
+ (participation-required :initarg :participation-required
+ :accessor gnus-icalendar-event:participation-required
+ :initform t
+ :type (or null boolean))
+ (req-participants :initarg :req-participants
+ :accessor gnus-icalendar-event:req-participants
+ :initform nil
+ :type (or null t))
+ (opt-participants :initarg :opt-participants
+ :accessor gnus-icalendar-event:opt-participants
+ :initform nil
+ :type (or null t)))
"generic iCalendar Event class")
(defclass gnus-icalendar-event-request (gnus-icalendar-event)
@@ -151,6 +163,24 @@
(gnus-icalendar-find-if #'attendee-prop-matches-p event-props))))
+(defun gnus-icalendar-event--get-attendee-names (ical)
+ (let* ((event (car (icalendar--all-events ical)))
+ (attendee-props (gnus-remove-if-not
+ (lambda (p) (eq (car p) 'ATTENDEE))
+ (caddr event))))
+
+ (gmm-labels ((attendee-role (prop) (plist-get (cadr prop) 'ROLE))
+ (attendee-name (prop) (plist-get (cadr prop) 'CN))
+ (attendees-by-type (type)
+ (gnus-remove-if-not
+ (lambda (p) (string= (attendee-role p) type))
+ attendee-props))
+ (attendee-names-by-type (type)
+ (mapcar #'attendee-name (attendees-by-type type))))
+
+ (list
+ (attendee-names-by-type "REQ-PARTICIPANT")
+ (attendee-names-by-type "OPT-PARTICIPANT")))))
(defun gnus-icalendar-event-from-ical (ical &optional attendee-name-or-email)
(let* ((event (car (icalendar--all-events ical)))
@@ -165,12 +195,17 @@
(method (caddr (assoc 'METHOD (caddr (car (nreverse ical))))))
(attendee (when attendee-name-or-email
(gnus-icalendar-event--find-attendee ical attendee-name-or-email)))
+ (attendee-names (gnus-icalendar-event--get-attendee-names ical))
(args (list :method method
:organizer organizer
:start-time (gnus-icalendar-event--decode-datefield event 'DTSTART)
:end-time (gnus-icalendar-event--decode-datefield event 'DTEND)
:rsvp (string= (plist-get (cadr attendee) 'RSVP)
- "TRUE")))
+ "TRUE")
+ :participation-required (string= (plist-get (cadr attendee) 'ROLE)
+ "REQ-PARTICIPANT")
+ :req-participants (cdar attendee-names)
+ :opt-participants (cadr attendee-names)))
(event-class (cond
((string= method "REQUEST") 'gnus-icalendar-event-request)
((string= method "CANCEL") 'gnus-icalendar-event-cancel)
@@ -366,6 +401,10 @@ Return nil for non-recurring EVENT."
(format "%s (%s)" summary location)
(format "%s" summary)))
+
+(defun gnus-icalendar--format-participant-list (participants)
+ (mapconcat #'identity participants ", "))
+
;; TODO: make the template customizable
(defmethod gnus-icalendar-event->org-entry ((event gnus-icalendar-event) reply-status)
"Return string with new `org-mode' entry describing EVENT."
@@ -380,6 +419,9 @@ Return nil for non-recurring EVENT."
("DT" . ,(gnus-icalendar-event:org-timestamp event))
("ORGANIZER" . ,(gnus-icalendar-event:organizer event))
("LOCATION" . ,(gnus-icalendar-event:location event))
+ ("PARTICIPATION_REQUIRED" . ,(when (gnus-icalendar-event:participation-required event) "t"))
+ ("REQ_PARTICIPANTS" . ,(gnus-icalendar--format-participant-list (gnus-icalendar-event:req-participants event)))
+ ("OPT_PARTICIPANTS" . ,(gnus-icalendar--format-participant-list (gnus-icalendar-event:opt-participants event)))
("RRULE" . ,(gnus-icalendar-event:recur event))
("REPLY" . ,reply))))
@@ -438,7 +480,8 @@ is searched."
(let ((file (gnus-icalendar-find-org-event-file event org-file)))
(when file
(with-current-buffer (find-file-noselect file)
- (with-slots (uid summary description organizer location recur) event
+ (with-slots (uid summary description organizer location recur
+ participation-required req-participants opt-participants) event
(let ((event-pos (org-find-entry-with-id uid)))
(when event-pos
(goto-char event-pos)
@@ -480,6 +523,9 @@ is searched."
(org-entry-put event-pos "DT" (gnus-icalendar-event:org-timestamp event))
(org-entry-put event-pos "ORGANIZER" organizer)
(org-entry-put event-pos "LOCATION" location)
+ (org-entry-put event-pos "PARTICIPATION_REQUIRED" (when participation-required "t"))
+ (org-entry-put event-pos "REQ_PARTICIPANTS" (gnus-icalendar--format-participant-list req-participants))
+ (org-entry-put event-pos "OPT_PARTICIPANTS" (gnus-icalendar--format-participant-list opt-participants))
(org-entry-put event-pos "RRULE" recur)
(when reply-status (org-entry-put event-pos "REPLY"
(capitalize (symbol-name reply-status))))
@@ -595,11 +641,13 @@ is searched."
(propertize (concat (car x) ":") 'face 'bold)
(cadr x))))
- (with-slots (organizer summary description location recur uid method rsvp) event
+ (with-slots (organizer summary description location recur uid
+ method rsvp participation-required) event
(let ((headers `(("Summary" ,summary)
("Location" ,(or location ""))
("Time" ,(gnus-icalendar-event:org-timestamp event))
("Organizer" ,organizer)
+ ("Attendance" ,(if participation-required "Required" "Optional"))
("Method" ,method))))
(when (and (not (gnus-icalendar-event-reply-p event)) rsvp)
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: FEATURE: gnus-icalendar appt participants synced to org
2013-11-14 23:19 FEATURE: gnus-icalendar appt participants synced to org Jan Tatarik
@ 2013-11-15 0:07 ` Katsumi Yamaoka
0 siblings, 0 replies; 2+ messages in thread
From: Katsumi Yamaoka @ 2013-11-15 0:07 UTC (permalink / raw)
To: ding
Jan Tatarik wrote:
> the enclosed patch adds two features to gnus-icalendar:
> - the article buffer now shows a new field 'Attendance' with values of
> either 'Required' or 'Optional' - good to know which meetings are safe
> to ignore
> - appointments exported to org outline now contain additional properties
> PARTICIPATION_REQUIRED (t when required), REQ_PARTICIPANTS (list of
> required attendees) and OPT_PARTICIPANTS (list of optional attendees)
Applied. Thanks.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2013-11-15 0:07 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-11-14 23:19 FEATURE: gnus-icalendar appt participants synced to org Jan Tatarik
2013-11-15 0:07 ` Katsumi Yamaoka
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).