[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-ahc-presence.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require jabber-presence jabber-ahc] 2)
#@46 Node used by function `jabber-ahc-presence'.\1f
(defconst jabber-ahc-presence-node "http://jabber.org/protocol/rc#set-status" (#$ . 164))
(jabber-ahc-add jabber-ahc-presence-node "Set presence" 'jabber-ahc-presence 'jabber-my-jid-p)
#@175 Process presence change command.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA)\1f
(defalias 'jabber-ahc-presence #[514 "\304\ 1!\211\305\ 1:\205\ e\0\306\ 2\ 2\"\266\202\ 1\307\ 1:\205\e\0\306\ 2\ 2\"\266\202\211\310\230\2031\0\311\312\305\ 4B\313\bB\314BBBD\207\ 1\204u\0\311\315\316\313\bB\317BBB\320\321\322\323\324\325\326\ 6\r!\"E\327\330\331\332\333\323	\334\230\203[\0\335\202\\\0	E\336BBB\331\337\333\323\nEE\331\340\333\323\341\v!EE\257\bE\207\342\ 3\320\"@\342\ 1\331\"	\n\v\ 3\211\203\340\0\211@\211\343\ 1:\205\223\0\306\ 2\ 2\"\266\202\342\ 2\333\"@\211AA\211\344\232?\205\245\0\211\266\202@\ 1\345\230\203\300\0\211\335\230\203\270\0\334\202\271\0\211\262\a\266\ 2\202\331\0\ 1\346\230\203\314\0\262\ 5\210\202\331\0\ 1\347\230\203\327\0\350\ 1!\262\ 5\266\ 2\ 1A\266\202\202\202\0\210\351\ 3\ 3\ 3#\266\ 6\311\352\305\ 4B\313\bB\353BBB\354BB\207" [jabber-ahc-presence-node *jabber-current-show* *jabber-current-status* *jabber-current-priority* jabber-iq-query sessionid xml-get-attribute-or-nil action "cancel" command (xmlns . "http://jabber.org/protocol/commands") node ((status . "canceled")) (xmlns . "http://jabber.org/protocol/commands") (sessionid . "jabber-ahc-presence") ((status . "executing")) x ((xmlns . "jabber:x:data") (type . "form")) title nil format "Set presence of %s" jabber-connection-jid (instructions nil "Select new presence status.") (field ((var . "FORM_TYPE") (type . "hidden")) (value nil "http://jabber.org/protocol/rc")) field ((var . "status") (label . "Status") (type . "list-single")) value #1="" "online" ((option ((label . "Online")) (value nil "online")) (option ((label . "Chatty")) (value nil "chat")) (option ((label . "Away")) (value nil "away")) (option ((label . "Extended away")) (value nil "xa")) (option ((label . "Do not disturb")) (value nil "dnd"))) ((var . "status-message") (label . "Message") (type . "text-single")) ((var . "status-priority") (label . "Priority") (type . "text-single")) int-to-string jabber-xml-get-children var ((#1#)) "status" "status-message" "status-priority" string-to-number jabber-send-presence (xmlns . "http://jabber.org/protocol/commands") ((status . "completed")) ((note ((type . "info")) "Presence has been changed."))] 20 (#$ . 401)])
(provide 'jabber-ahc-presence)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\300\302!\207" [require jabber-presence jabber-ahc] 2)
	9	#@46 Node used by function `jabber-ahc-presence'.\1f
	10	(defconst jabber-ahc-presence-node "http://jabber.org/protocol/rc#set-status" (#$ . 164))
	11	(jabber-ahc-add jabber-ahc-presence-node "Set presence" 'jabber-ahc-presence 'jabber-my-jid-p)
	12	#@175 Process presence change command.
	13
	14	JC is the Jabber connection.
	15	XML-DATA is the parsed tree data from the stream (stanzas)
	16	obtained from `xml-parse-region'.
	17
	18	(fn JC XML-DATA)\1f
	19	(defalias 'jabber-ahc-presence #[514 "\304\ 1!\211\305\ 1:\205\ e\0\306\ 2\ 2\"\266\202\ 1\307\ 1:\205\e\0\306\ 2\ 2\"\266\202\211\310\230\2031\0\311\312\305\ 4B\313\bB\314BBBD\207\ 1\204u\0\311\315\316\313\bB\317BBB\320\321\322\323\324\325\326\ 6\r!\"E\327\330\331\332\333\323 \334\230\203[\0\335\202\\\0 E\336BBB\331\337\333\323\nEE\331\340\333\323\341\v!EE\257\bE\207\342\ 3\320\"@\342\ 1\331\" \n\v\ 3\211\203\340\0\211@\211\343\ 1:\205\223\0\306\ 2\ 2\"\266\202\342\ 2\333\"@\211AA\211\344\232?\205\245\0\211\266\202@\ 1\345\230\203\300\0\211\335\230\203\270\0\334\202\271\0\211\262\a\266\ 2\202\331\0\ 1\346\230\203\314\0\262\ 5\210\202\331\0\ 1\347\230\203\327\0\350\ 1!\262\ 5\266\ 2\ 1A\266\202\202\202\0\210\351\ 3\ 3\ 3#\266\ 6\311\352\305\ 4B\313\bB\353BBB\354BB\207" [jabber-ahc-presence-node jabber-current-show jabber-current-status jabber-current-priority jabber-iq-query sessionid xml-get-attribute-or-nil action "cancel" command (xmlns . "http://jabber.org/protocol/commands") node ((status . "canceled")) (xmlns . "http://jabber.org/protocol/commands") (sessionid . "jabber-ahc-presence") ((status . "executing")) x ((xmlns . "jabber:x:data") (type . "form")) title nil format "Set presence of %s" jabber-connection-jid (instructions nil "Select new presence status.") (field ((var . "FORM_TYPE") (type . "hidden")) (value nil "http://jabber.org/protocol/rc")) field ((var . "status") (label . "Status") (type . "list-single")) value #1="" "online" ((option ((label . "Online")) (value nil "online")) (option ((label . "Chatty")) (value nil "chat")) (option ((label . "Away")) (value nil "away")) (option ((label . "Extended away")) (value nil "xa")) (option ((label . "Do not disturb")) (value nil "dnd"))) ((var . "status-message") (label . "Message") (type . "text-single")) ((var . "status-priority") (label . "Priority") (type . "text-single")) int-to-string jabber-xml-get-children var ((#1#)) "status" "status-message" "status-priority" string-to-number jabber-send-presence (xmlns . "http://jabber.org/protocol/commands") ((status . "completed")) ((note ((type . "info")) "Presence has been changed."))] 20 (#$ . 401)])
	20	(provide 'jabber-ahc-presence)