[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master a078150 01/11: Excorporate: Support replying to meeting re
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master a078150 01/11: Excorporate: Support replying to meeting requests |
Date: |
Thu, 24 Sep 2020 21:54:52 -0400 (EDT) |
branch: master
commit a0781504dfaa98ff2b8713c82954e013e3dc8520
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Excorporate: Support replying to meeting requests
* packages/excorporate/excorporate.el
(exco-calendar-item-meeting-reply): New function.
---
packages/excorporate/excorporate.el | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/packages/excorporate/excorporate.el
b/packages/excorporate/excorporate.el
index 03cf969..3e25818 100644
--- a/packages/excorporate/excorporate.el
+++ b/packages/excorporate/excorporate.el
@@ -729,6 +729,41 @@ creation."
(make-list (- arity 1) nil)))
callback))
+(defun exco-calendar-item-meeting-reply (identifier
+ item-identifier message acceptance
+ callback)
+ "Reply to a meeting request.
+IDENTIFIER is the connection identifier. ITEM-IDENTIFIER is the
+meeting identifier. MESSAGE is the body of the reply message
+that will be sent to attendees, or nil to omit the message.
+ACCEPTANCE is a symbol representing the type of reply, one of
+`accept', `tentatively-accect' or `decline'. CALLBACK is a
+callback function called with two arguments, IDENTIFIER, the
+connection identifier for the responding connection, and
+RESPONSE, the server's response to the meeting cancellation."
+ (let ((acceptance-symbol (cl-ecase acceptance
+ (accept 'AcceptItem)
+ (tentatively-accept 'TentativelyAcceptItem)
+ (decline 'DeclineItem))))
+ (exco-operate
+ identifier
+ "CreateItem"
+ `(((MessageDisposition . "SendAndSaveCopy")
+ (Items
+ (,acceptance-symbol
+ (Sensitivity . "Private")
+ (ReferenceItemId ,@(cdr item-identifier))
+ ,@(when message (list `(Body (BodyType . "Text") ,message))))))
+ ;; Empty arguments.
+ ,@(let* ((wsdl (exco--with-fsm identifier
+ (plist-get (fsm-get-state-data fsm)
+ :service-wsdl)))
+ (arity (soap-operation-arity wsdl
+ "ExchangeServicePort"
+ "CreateItem")))
+ (make-list (- arity 1) nil)))
+ callback)))
+
(defun exco-calendar-item-meeting-cancel (identifier
item-identifier message callback)
"Cancel a meeting.
- [elpa] master updated (fdfd986 -> 9ce646f), Thomas Fitzsimmons, 2020/09/24
- [elpa] master ba7b6c9 05/11: Excorporate: Add some helper functions to Org backend, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 9ce646f 11/11: Excorporate: Document API usage in manual, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 030ea89 02/11: Excorporate: Adjust some documentation strings, Thomas Fitzsimmons, 2020/09/24
- [elpa] master a078150 01/11: Excorporate: Support replying to meeting requests,
Thomas Fitzsimmons <=
- [elpa] master 05bd7d0 03/11: Excorporate: Change organizer representation, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 5281378 04/11: Excorporate: Add an organizer resolver function, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 5df7dfd 06/11: Excorporate: Simplify organizer handling in Org backend, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 3bd310b 07/11: Excorporate: Support replying to meeting requests in Org buffer, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 57020a8 08/11: Excorporate: Fix some byte compiler warnings, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 064a111 09/11: Excorporate: Require Org 9.0 or newer, Thomas Fitzsimmons, 2020/09/24
- [elpa] master 137f24e 10/11: Excorporate: Document new interactive functions, Thomas Fitzsimmons, 2020/09/24