;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require rudel-backend rudel-protocol rudel-interactive] 2) #@44 Version of the infinote backend for Rudel. (defconst rudel-infinote-version '(0 1) (#$ . 521)) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias rudel-infinote-backend-p eieio-make-class-predicate rudel-infinote-backend rudel-infinote-backend--eieio-childp eieio-make-child-predicate rudel-infinote-backend-child-p make-obsolete "use (cl-typep ... \\='rudel-infinote-backend) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-protocol-backend) ((capabilities :initform '(join change-color chat track-subscriptions track-cursors track-selections track-viewports group-undo))) (:documentation "")] 6) #@79 Create a new object of class type `rudel-infinote-backend'. (fn &rest SLOTS) (defalias 'rudel-infinote-backend #[128 "\300\301\302#\207" [apply make-instance rudel-infinote-backend] 5 (#$ . 1264)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-infinote-backend compiler-macro rudel-infinote-backend--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-infinote-backend--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1601)]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\325\326\327!\330\331#\210\332\333\334\"\210\335\336!\207" [cl-generic-define-method initialize-instance nil ((this rudel-infinote-backend) _slots) t #[771 " \210\301\302#\207" [rudel-infinote-version eieio-oset :version] 7 "\n\n(fn CL--CNM THIS SLOTS)"] rudel-ask-connect-info ((_this rudel-infinote-backend) &optional info) #[513 "\300\301\"\206 \302 \300\303\"\206\304 \305\301\303F\"\207" [plist-get :username rudel-read-user-name :color rudel-read-user-color append] 9 "\n\n(fn THIS &optional INFO)"] rudel-connect ((_this rudel-infinote-backend) transport info _info-callback &optional progress-callback) #[1284 "\300\301!\210\302\303\"\302\304\"\305\306\307\206\310\"\303\311\n%\312!\210\313\"\210\207" [require rudel-infinote-client plist-get :session :host rudel-infinote-client-connection format "to %s" "unknown host" :transport rudel-start rudel-wait] 13 "Connect to an infinote server using the information INFO.\nReturn the connection object.\n\n(fn THIS TRANSPORT INFO INFO-CALLBACK &optional PROGRESS-CALLBACK)"] rudel-make-document ((_this rudel-infinote-backend) name _encoding session) #[1028 "\300\301#\207" [rudel-infinote-text-document :session] 8 "\n\n(fn THIS NAME ENCODING SESSION)"] rudel-make-node ((_this rudel-infinote-backend) type name id parent) #[1285 "\300\230\203\301\302\303%\207\304\230\203\305\302\303%\207\306\307\"\207" ["InfText" rudel-infinote-text-document :id :parent "InfSubdirectory" rudel-infinote-node-directory error "No such node type: `%s'"] 11 "Create a node object according to TYPE, NAME, ID and PARENT.\nThe new node will be named NAME and have id ID. It will be a\nchild node of PARENT unless PARENT is nil in which case the new\nnode will be the root node.\n\n(fn THIS TYPE NAME ID PARENT)"] rudel-make-group ((_this rudel-infinote-backend) type name method &optional node) #[1284 "\300\230\203\301\302\303\304\305&\207\306\307\"\207" ["InfText" rudel-infinote-group-text-document :publisher "you" :method :document error "No such node type: `%s'"] 13 "Create a new group according to TYPE, NAME and METHOD.\nThe optional argument NODE can specify the node (usually a\ndocument) associated to the new group.\n\n(fn THIS TYPE NAME METHOD &optional NODE)"] rudel-add-backend rudel-backend-get-factory protocol infinote rudel-infinote-backend eval-after-load rudel-zeroconf #[0 "\300\301\302\303#\207" [rudel-zeroconf-register-service "_infinote._tcp" xmpp infinote] 4] provide rudel-infinote] 6)