;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require sx-method sx-cache sx-site sx-filter] 2) #@41 User information for the various sites. (defvar sx-network--user-information nil (#$ . 203)) #@51 User information for the various site parameters. (defvar sx-network--user-information-alist nil (#$ . 302)) #@50 List of sites where user already has an account. (defvar sx-network--user-sites nil (#$ . 417)) (defconst sx-network--user-filter '((badge_count\.bronze badge_count\.silver badge_count\.gold network_user\.account_id network_user\.answer_count network_user\.badge_counts network_user\.creation_date network_user\.last_access_date network_user\.reputation network_user\.site_name network_user\.site_url network_user\.user_id network_user\.user_type \.backoff \.error_id \.error_message \.error_name \.has_more \.items \.page \.page_size \.quota_max \.quota_remaining) nil nil)) #@97 Retrieve cached information for network user. If cache is not available, retrieve current data. (defalias 'sx-network--get-associated #[0 "\303\304!\211\204 \305 \210\306\307\310 \"\311\211\312\313\314\"\"\207" [sx-network--user-information sx-network--user-sites sx-network--user-information-alist sx-cache-get network-user sx-network--update mapcar #[257 "\300\236A\301\236AB\207" [site_url api_site_parameter] 4 "\n\n(fn X)"] sx-site--get-site-list nil mapc make-closure #[257 "\303\304\236A\300\"A\211 B\211B\nB\211\207" [V0 sx-network--user-sites sx-network--user-information-alist assoc site_url] 4 "\n\n(fn NU)"]] 6 (#$ . 999)]) #@105 Update user information. Sets cache and then uses `sx-network--get-associated' to update the variables. (defalias 'sx-network--update #[0 "\302\303\304\305\306\307\310\311\312& \313\314 \"\207" [sx-network--user-filter sx-network--user-information sx-method-call me :submethod associated :keywords ((types main_site meta_site)) :filter :auth t sx-cache-set network-user] 10 (#$ . 1654)]) #@74 Ensure network-user cache is available. Added as hook to initialization. (defalias 'sx-network--initialize #[0 "\300 \207" [sx-network--get-associated] 1 (#$ . 2050)]) (add-hook 'sx-init--internal-hook 'sx-network--initialize) #@66 Return an alist containing user information for SITE. (fn SITE) (defalias 'sx-network-user #[257 "\301\"A\207" [sx-network--user-information-alist assoc] 4 (#$ . 2283)]) (provide 'sx-networks)