[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/excorporate 5bd2608 59/93: Excorporate: Support appoint

From: Stefan Monnier
Subject: [elpa] externals/excorporate 5bd2608 59/93: Excorporate: Support appointment deletion
Date: Sun, 29 Nov 2020 15:43:09 -0500 (EST)

branch: externals/excorporate
commit 5bd2608cb1b11e5f392240a7aaf68cb007d8fb81
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Excorporate: Support appointment deletion
    * packages/excorporate/excorporate.el
    (exco-calendar-item-appointment-delete): New function.
 excorporate.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/excorporate.el b/excorporate.el
index 694be81..66ba673 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -659,6 +659,24 @@ PATH is an ordered list of node names."
       (setq values (assoc path-element values)))
     (cdr values)))
+(defun exco-calendar-item-appointment-delete (identifier
+                                             item-identifier callback)
+  "Delete an appointment.
+IDENTIFIER is the connection identifier.  ITEM-IDENTIFIER is the
+item identifier in the form:
+(ItemId (Id . ID-STRING) (ChangeKey . CHANGEKEY-STRING))
+CALLBACK is the callback called with the identifier and
+  (exco-operate identifier
+               "DeleteItem"
+               `(((DeleteType . "MoveToDeletedItems")
+                  (SendMeetingCancellations . "SendToAllAndSaveCopy")
+                  (ItemIds ,item-identifier))
+                 nil nil nil)
+               callback))
 (defun exco-calendar-item-get-details (identifier item-identifier process-item)
   "Query server for details about ITEM-IDENTIFIER.
 IDENTIFIER is the connection identifier.  Call PROCESS-ITEM with

reply via email to

[Prev in Thread] Current Thread [Next in Thread]