1 files changed, 61 insertions, 0 deletions
diff --git a/jabber-private.el b/jabber-private.el
new file mode 100644
index 0000000..d748f0f
--- /dev/null
+++ b/jabber-private.el
@@ -0,0 +1,61 @@
+;;; jabber-private.el --- jabber:iq:private API by JEP-0049
+
+;; Copyright (C) 2005  Magnus Henoch
+
+;; Author: Magnus Henoch <mange@freemail.hu>
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;;###autoload
+(defun jabber-private-get (jc node-name namespace success-callback error-callback)
+  "Retrieve an item from private XML storage.
+The item to retrieve is identified by NODE-NAME (a symbol) and
+NAMESPACE (a string).
+
+On success, SUCCESS-CALLBACK is called with JC and the retrieved
+XML fragment.
+
+On error, ERROR-CALLBACK is called with JC and the entire IQ
+result."
+  (jabber-send-iq jc nil "get"
+		  `(query ((xmlns . "jabber:iq:private"))
+			  (,node-name ((xmlns . ,namespace))))
+		  #'jabber-private-get-1 success-callback
+		  #'(lambda (jc xml-data error-callback)
+		      (funcall error-callback jc xml-data))
+		  error-callback))
+
+(defun jabber-private-get-1 (jc xml-data success-callback)
+  (funcall success-callback jc
+	   (car (jabber-xml-node-children
+		 (jabber-iq-query xml-data)))))
+
+;;;###autoload
+(defun jabber-private-set (jc fragment &optional 
+			      success-callback success-closure-data
+			      error-callback error-closure-data)
+  "Store FRAGMENT in private XML storage.
+SUCCESS-CALLBACK, SUCCESS-CLOSURE-DATA, ERROR-CALLBACK and
+ERROR-CLOSURE-DATA are used as in `jabber-send-iq'."
+  (jabber-send-iq jc nil "set"
+		  `(query ((xmlns . "jabber:iq:private"))
+			  ,fragment)
+		  success-callback success-closure-data
+		  error-callback error-closure-data))
+
+(provide 'jabber-private)
+
+;; arch-tag: 065bd03e-40fa-11da-ab48-000a95c2fcd0