[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-vcard-avatars.elc

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


(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\301\311\312&\a\210\302\313\304\305\314DD\315\310\301\311\312&\a\207" [require jabber-avatar custom-declare-variable jabber-vcard-avatars-retrieve funcall function #[0 "\300\301!\205\b\0\301 \207" [fboundp display-images-p] 2 #1=""] "Automatically download vCard avatars?" :group :type boolean jabber-vcard-avatars-publish #[0 "\300\207" [t] 1 #1#] "Publish your vCard photo as avatar?"] 8)
#@71 For each connection, SHA1 hash of current avatar.
Keys are full JIDs.\1f
(defvar jabber-vcard-avatars-current-hash (make-hash-table :test 'equal) (#$ . 526))
(add-to-list 'jabber-presence-chain 'jabber-vcard-avatars-presence)
#@192 Look for vCard avatar mark in <presence/> stanza.

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-vcard-avatars-presence #[514 "\b\205\\\0\211\301\ 1:\205\ f\0\302\ 2\ 2\"\266\202?\205\\\0\303\ 1\304\ 1:\205!\0\302\ 2\ 2\"\266\202!\305\ 2\306\"\211\211AA\211\307\232?\2054\0\211\266\202@\211\204@\0\310\ 3\311\"\207\211\312\ 4!\313N\230\206Z\0\314\ 1!\203U\0\310\ 3\ 2\"\207\315\ 5\ 4\ 3#\266\203\207" [jabber-vcard-avatars-retrieve type xml-get-attribute-or-nil jabber-jid-user from jabber-xml-path (("vcard-temp:x:update" . "x") photo) (("")) jabber-avatar-set nil jabber-jid-symbol avatar-hash jabber-avatar-find-cached jabber-vcard-avatars-fetch] 9 (#$ . 756)])
#@98 Fetch vCard for JID and extract the avatar.

JC is the Jabber connection.

(fn JC JID SHA1-HASH)\1f
(defalias 'jabber-vcard-avatars-fetch #[771 "\300\ 3\ 3\301\302\303\ 6\a\ 6\aB\304\305&\b\207" [jabber-send-iq "get" (vCard ((xmlns . "vcard-temp"))) jabber-vcard-avatars-vcard ignore nil] 12 (#$ . 1496) (byte-code "\300 \301\302!\303E\207" [jabber-read-account jabber-read-jid-completing "Fetch whose vCard avatar: " nil] 3)])
#@71 Get the photo from the vCard, and set the avatar.

(fn JC IQ CLOSURE)\1f
(defalias 'jabber-vcard-avatars-vcard #[771 "\211@\ 1A\302\303\304\ 6\ 6!!\236\211\203\\\0\305\306\ 28\ 2A@\"\ 2\203S\0\ 2\307\ 2!\b>\204,\0\310\311\312\ 4D\"\210\ 1\313H\230\204S\0	\203S\0\314\315\316\ 6\ 6!\ 5\307\ 5!\b>\204N\0\310\311\312\ 6\aD\"\210\ 4\313H$\210\317\ 1!\210\320\ 4\ 2\"\207\320\ 3\321\"\207" [cl-struct-avatar-tags jabber-avatar-verbose PHOTO jabber-vcard-parse jabber-iq-query jabber-avatar-from-base64-string 2 type-of signal wrong-type-argument avatar 1 message "%s's avatar should have SHA1 sum %s, but has %s" jabber-jid-displayname jabber-avatar-cache jabber-avatar-set nil] 15 (#$ . 1916)])
#@87 Request our own vCard, to find hash of avatar.

JC is the Jabber connection.

(fn JC)\1f
(defalias 'jabber-vcard-avatars-find-current #[257 "\b\205\ f\0\301\ 1\302\303\304\305\306\305\302&\b\207" [jabber-vcard-avatars-publish jabber-send-iq nil "get" (vCard ((xmlns . "vcard-temp"))) jabber-vcard-avatars-find-current-1 t] 10 (#$ . 2562)])
#@28 

(fn JC XML-DATA SUCCESS)\1f
(defalias 'jabber-vcard-avatars-find-current-1 #[771 "\301\ 3\ 2\2050\0\302\303\304\ 6\ 6!!\236\211\205.\0\305\306\ 28\ 2A@\"\307\ 1!\b>\204)\0\310\311\312\ 3D\"\210\211\313H\262\ 1\262\ 1\"\207" [cl-struct-avatar-tags jabber-vcard-avatars-update-current PHOTO jabber-vcard-parse jabber-iq-query jabber-avatar-from-base64-string 2 type-of signal wrong-type-argument avatar 1] 11 (#$ . 2898)])
#@20 

(fn JC NEW-HASH)\1f
(defalias 'jabber-vcard-avatars-update-current #[514 "\301\302\ 3!\b\"\211\ 2\230?\205\18\0\303\302\ 4!\ 3\b#\210\304\ 3!\207" [jabber-vcard-avatars-current-hash gethash jabber-connection-bare-jid puthash jabber-send-current-presence] 7 (#$ . 3300)])
(add-to-list 'jabber-presence-element-functions 'jabber-vcard-avatars-presence-element)
#@11 

(fn JC)\1f
(defalias 'jabber-vcard-avatars-presence-element #[257 "\b\205\18\0\302\303\ 2!	\"\304\305\ 2\205\14\0\306\307\ 4EEC\262\ 1\207" [jabber-vcard-avatars-publish jabber-vcard-avatars-current-hash gethash jabber-connection-bare-jid x ((xmlns . "vcard-temp:x:update")) photo nil] 7 (#$ . 3649)])
(provide 'jabber-vcard-avatars)
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\302\303\304\305\306DD\307\310\301\311\312&\a\210\302\313\304\305\314DD\315\310\301\311\312&\a\207" [require jabber-avatar custom-declare-variable jabber-vcard-avatars-retrieve funcall function #[0 "\300\301!\205\b\0\301 \207" [fboundp display-images-p] 2 #1=""] "Automatically download vCard avatars?" :group :type boolean jabber-vcard-avatars-publish #[0 "\300\207" [t] 1 #1#] "Publish your vCard photo as avatar?"] 8)
	9	#@71 For each connection, SHA1 hash of current avatar.
	10	Keys are full JIDs.\1f
	11	(defvar jabber-vcard-avatars-current-hash (make-hash-table :test 'equal) (#$ . 526))
	12	(add-to-list 'jabber-presence-chain 'jabber-vcard-avatars-presence)
	13	#@192 Look for vCard avatar mark in <presence/> stanza.
	14
	15	JC is the Jabber connection.
	16	XML-DATA is the parsed tree data from the stream (stanzas)
	17	obtained from `xml-parse-region'.
	18
	19	(fn JC XML-DATA)\1f
	20	(defalias 'jabber-vcard-avatars-presence #[514 "\b\205\\\0\211\301\ 1:\205\ f\0\302\ 2\ 2\"\266\202?\205\\\0\303\ 1\304\ 1:\205!\0\302\ 2\ 2\"\266\202!\305\ 2\306\"\211\211AA\211\307\232?\2054\0\211\266\202@\211\204@\0\310\ 3\311\"\207\211\312\ 4!\313N\230\206Z\0\314\ 1!\203U\0\310\ 3\ 2\"\207\315\ 5\ 4\ 3#\266\203\207" [jabber-vcard-avatars-retrieve type xml-get-attribute-or-nil jabber-jid-user from jabber-xml-path (("vcard-temp:x:update" . "x") photo) (("")) jabber-avatar-set nil jabber-jid-symbol avatar-hash jabber-avatar-find-cached jabber-vcard-avatars-fetch] 9 (#$ . 756)])
	21	#@98 Fetch vCard for JID and extract the avatar.
	22
	23	JC is the Jabber connection.
	24
	25	(fn JC JID SHA1-HASH)\1f
	26	(defalias 'jabber-vcard-avatars-fetch #[771 "\300\ 3\ 3\301\302\303\ 6\a\ 6\aB\304\305&\b\207" [jabber-send-iq "get" (vCard ((xmlns . "vcard-temp"))) jabber-vcard-avatars-vcard ignore nil] 12 (#$ . 1496) (byte-code "\300 \301\302!\303E\207" [jabber-read-account jabber-read-jid-completing "Fetch whose vCard avatar: " nil] 3)])
	27	#@71 Get the photo from the vCard, and set the avatar.
	28
	29	(fn JC IQ CLOSURE)\1f
	30	(defalias 'jabber-vcard-avatars-vcard #[771 "\211@\ 1A\302\303\304\ 6\ 6!!\236\211\203\\\0\305\306\ 28\ 2A@\"\ 2\203S\0\ 2\307\ 2!\b>\204,\0\310\311\312\ 4D\"\210\ 1\313H\230\204S\0 \203S\0\314\315\316\ 6\ 6!\ 5\307\ 5!\b>\204N\0\310\311\312\ 6\aD\"\210\ 4\313H$\210\317\ 1!\210\320\ 4\ 2\"\207\320\ 3\321\"\207" [cl-struct-avatar-tags jabber-avatar-verbose PHOTO jabber-vcard-parse jabber-iq-query jabber-avatar-from-base64-string 2 type-of signal wrong-type-argument avatar 1 message "%s's avatar should have SHA1 sum %s, but has %s" jabber-jid-displayname jabber-avatar-cache jabber-avatar-set nil] 15 (#$ . 1916)])
	31	#@87 Request our own vCard, to find hash of avatar.
	32
	33	JC is the Jabber connection.
	34
	35	(fn JC)\1f
	36	(defalias 'jabber-vcard-avatars-find-current #[257 "\b\205\ f\0\301\ 1\302\303\304\305\306\305\302&\b\207" [jabber-vcard-avatars-publish jabber-send-iq nil "get" (vCard ((xmlns . "vcard-temp"))) jabber-vcard-avatars-find-current-1 t] 10 (#$ . 2562)])
	37	#@28
	38
	39	(fn JC XML-DATA SUCCESS)\1f
	40	(defalias 'jabber-vcard-avatars-find-current-1 #[771 "\301\ 3\ 2\2050\0\302\303\304\ 6\ 6!!\236\211\205.\0\305\306\ 28\ 2A@\"\307\ 1!\b>\204)\0\310\311\312\ 3D\"\210\211\313H\262\ 1\262\ 1\"\207" [cl-struct-avatar-tags jabber-vcard-avatars-update-current PHOTO jabber-vcard-parse jabber-iq-query jabber-avatar-from-base64-string 2 type-of signal wrong-type-argument avatar 1] 11 (#$ . 2898)])
	41	#@20
	42
	43	(fn JC NEW-HASH)\1f
	44	(defalias 'jabber-vcard-avatars-update-current #[514 "\301\302\ 3!\b\"\211\ 2\230?\205\18\0\303\302\ 4!\ 3\b#\210\304\ 3!\207" [jabber-vcard-avatars-current-hash gethash jabber-connection-bare-jid puthash jabber-send-current-presence] 7 (#$ . 3300)])
	45	(add-to-list 'jabber-presence-element-functions 'jabber-vcard-avatars-presence-element)
	46	#@11
	47
	48	(fn JC)\1f
	49	(defalias 'jabber-vcard-avatars-presence-element #[257 "\b\205\18\0\302\303\ 2! \"\304\305\ 2\205\14\0\306\307\ 4EEC\262\ 1\207" [jabber-vcard-avatars-publish jabber-vcard-avatars-current-hash gethash jabber-connection-bare-jid x ((xmlns . "vcard-temp:x:update")) photo nil] 7 (#$ . 3649)])
	50	(provide 'jabber-vcard-avatars)