;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320\321\312\305&\210\314\322\323\324\320\325\312\305&\210\314\326\327\330\320\331\312\305&\210\314\332\333\334\320\335\312\305&\207" [require url url-cache image custom-declare-group gravatar nil "Gravatar." :version "24.1" :group comm custom-declare-variable gravatar-automatic-caching t "Whether to cache retrieved gravatars." :type boolean gravatar-cache-ttl (days-to-time 30) "Time to live for gravatar cache entries." (repeat integer) gravatar-rating "g" "Default rating for gravatar." string gravatar-size 32 "Default size in pixels for gravatars." integer] 8)
#@33 Base URL for getting gravatars.
(defconst gravatar-base-url "http://www.gravatar.com/avatar" (#$ . 1085))
#@34 Create a hash from MAIL-ADDRESS.
(defalias 'gravatar-hash #[(mail-address) "\301\227!\207" [mail-address md5] 2 (#$ . 1197)])
#@49 Return a URL to retrieve MAIL-ADDRESS gravatar.
(defalias 'gravatar-build-url #[(mail-address) "\304\305\306 !\n %\207" [gravatar-base-url mail-address gravatar-rating gravatar-size format "%s/%s?d=404&r=%s&s=%d" gravatar-hash] 6 (#$ . 1330)])
#@60 Check if URL is cached for more than `gravatar-cache-ttl'.
(defalias 'gravatar-cache-expired #[(url) "\203 \304\305 !!?\207\306 !\211\203 \307\310\n \"\311 \"\202 \312)\207" [url-standalone-mode url cache-time gravatar-cache-ttl file-exists-p url-cache-create-filename url-is-cached time-less-p time-add current-time t] 5 (#$ . 1581)])
#@31 Get data from current buffer.
(defalias 'gravatar-get-data #[nil "\212eb\210\300\301\302\303 #\205 \304\305\302\306#\205 `d{)\207" [re-search-forward "^HTTP/.+ 200 OK$" nil line-end-position search-forward "\n\n" t] 4 (#$ . 1928)])
#@87 Get data of current buffer and return an image.
If no image available, return 'error.
(defalias 'gravatar-data->image #[nil "\301 \211\203 \302\303\304#\202 \305)\207" [data gravatar-get-data create-image nil t error] 5 (#$ . 2168)])
(autoload 'help-function-arglist "help-fns")
#@118 Retrieve MAIL-ADDRESS gravatar and call CB on retrieval.
You can provide a list of argument to pass to CB in CBARGS.
(defalias 'gravatar-retrieve #[(mail-address cb &optional cbargs) "\306!\307 !\203+ \310\n \205 DE \311\312!G\313V\203# \f\314C\244\315\312\f\")\202F \315\n\316\317! r
q\210\320\216\321\322!\210\323\324 !!\210\325 + #)\207" [mail-address url cb cbargs args #1=#:temp-buffer gravatar-build-url gravatar-cache-expired gravatar-retrieved help-function-arglist url-retrieve 4 t apply generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil url-cache-extract url-cache-create-filename gravatar-data->image] 5 (#$ . 2458)])
#@48 Retrieve MAIL-ADDRESS gravatar and returns it.
(defalias 'gravatar-retrieve-synchronously #[(mail-address) "\305!\306 !\203$ r\307 !q\210\n\203 \310p!\210\311 \312p!\210 *\202; \313\314! r\fq\210\315\216\316\317!\210\320\321 !!\210\311 +)\207" [mail-address url gravatar-automatic-caching data #1=#:temp-buffer gravatar-build-url gravatar-cache-expired url-retrieve-synchronously url-store-in-cache gravatar-data->image kill-buffer generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil url-cache-extract url-cache-create-filename] 3 (#$ . 3168)])
#@48 Callback function used by `gravatar-retrieve'.
(defalias 'gravatar-retrieved #[(status cb &optional cbargs) "\203 \304p!\210\305 \306\"\203 \307\n\310 #\210\202 \307\n\311 #\210\312p!\207" [gravatar-automatic-caching status cb cbargs url-store-in-cache plist-get :error apply error gravatar-data->image kill-buffer] 4 (#$ . 3790)])
(provide 'gravatar)
|