Current File : //usr/local/share/emacs/27.2/lisp/image/gravatar.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322\311\304&\210\313\323\315\316\324DD\325\321\326\307\327\311\304& \210\313\330\315\316\331DD\332\321\333\307\327\311\304& \210\313\334\315\316\335DD\336\321\337\307\327\311\304& \210\313\340\315\316\341DD\342\321\343\307\327\311\304& \210\313\344\315\316\345DD\346\321\322\307\327\311\304& \207" [require url url-cache custom-declare-group gravatar nil "Gravatars." :version "24.1" :group comm custom-declare-variable gravatar-automatic-caching funcall function #[0 "\300\207" [t] 1] "Whether to cache retrieved gravatars." :type boolean gravatar-cache-ttl #[0 "\300\207" [2592000] 1] "Time to live in seconds for gravatar cache entries.\nIf a requested gravatar has been cached for longer than this, it\nis retrieved anew. The default value is 30 days." integer "27.1" gravatar-rating #[0 "\300\207" [#1="g"] 1 #1#] "Most explicit Gravatar rating level to allow.\nSome gravatars are rated according to how suitable they are for\ndifferent audiences. The supported rating levels are, in order\nof increasing explicitness, the following:\n\n\"g\" - Suitable for any audience.\n\"pg\" - May contain rude gestures, provocatively dressed\n individuals, mild profanity, or mild violence.\n\"r\" - May contain harsh profanity, intense violence, nudity,\n or hard drug use.\n\"x\" - May contain hardcore sexual imagery or extremely\n disturbing violence.\n\nEach level covers itself as well as all less explicit levels.\nFor example, setting this variable to \"pg\" will allow gravatars\nrated either \"g\" or \"pg\"." (choice (const :tag "General Audience" "g") (const :tag "Parental Guidance" "pg") (const :tag "Restricted" "r") (const :tag "Explicit" "x")) gravatar-size #[0 "\300\207" [32] 1] "Gravatar size in pixels to request.\nValid sizes range from 1 to 2048 inclusive. If nil, use the\nGravatar default (usually 80)." (choice (const :tag "Gravatar default" nil) (integer :tag "Pixels")) gravatar-default-image #[0 "\300\207" [#2="404"] 1 #2#] "Default gravatar to use when none match the request.\nThis happens when no gravatar satisfying `gravatar-rating' exists\nfor a given email address. The following options are supported:\n\nnil - Default placeholder.\n\"404\" - No placeholder.\n\"mp\" - Mystery Person: generic avatar outline.\n\"identicon\" - Geometric pattern based on email address.\n\"monsterid\" - Generated \"monster\" with different colors, faces, etc.\n\"wavatar\" - Generated faces with different features and backgrounds.\n\"retro\" - Generated 8-bit arcade-style pixelated faces.\n\"robohash\" - Generated robot with different colors, faces, etc.\n\"blank\" - Transparent PNG image.\nURL - Custom image URL." (choice (const :tag "Default" nil) (const :tag "None" "404") (const :tag "Mystery person" "mp") (const :tag "Geometric patterns" "identicon") (const :tag "Monsters" "monsterid") (const :tag "Faces" "wavatar") (const :tag "Retro" "retro") (const :tag "Robots" "robohash") (const :tag "Blank" "blank") (string :tag "Custom URL")) gravatar-force-default #[0 "\300\207" [nil] 1] "Whether to force use of `gravatar-default-image'.\nNon-nil means use `gravatar-default-image' even when there exists\na gravatar for a given email address."] 10)
#@33 Base URL for getting gravatars.
(defconst gravatar-base-url "https://www.gravatar.com/avatar" (#$ . 3753))
#@63 Return the Gravatar hash for MAIL-ADDRESS.
(fn MAIL-ADDRESS)
(defalias 'gravatar-hash #[257 "\301\302\211\303\206\f \304\305Q\302\306\307#)\266\203\211\203& \310\311#\202' \266\203\307\312\2061 \304\313Q\"\203B \310\311\225\"\266\205\202E \266\205\227!\207" [inhibit-changing-match-data md5 nil "\\(?:" "[ \n
]+" "\\)\\'" t string-match substring 0 "\\`\\(?:" "\\)"] 14 (#$ . 3866)])
#@47 Return URI-encoded query string for Gravatar.
(defalias 'gravatar--query-string #[0 "\304\305D\306 \205
\307 DC\n\205 \310 \205 \311 DC#B!\207" [gravatar-rating gravatar-default-image gravatar-force-default gravatar-size url-build-query-string r append d ((f y)) s] 7 (#$ . 4275)])
#@67 Return the URL of a gravatar for MAIL-ADDRESS.
(fn MAIL-ADDRESS)
(defalias 'gravatar-build-url #[257 "\301\302\303!\304 $\207" [gravatar-base-url format "%s/%s?%s" gravatar-hash gravatar--query-string] 6 (#$ . 4567)])
#@55 Return body of current URL buffer, or nil on failure.
(defalias 'gravatar-get-data #[0 "\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 (#$ . 4794)])
#@258 Asynchronously retrieve a gravatar for MAIL-ADDRESS.
When finished, call CALLBACK as (apply CALLBACK GRAVATAR CBARGS),
where GRAVATAR is either an image descriptor, or the symbol
`error' if the retrieval failed.
(fn MAIL-ADDRESS CALLBACK &optional CBARGS)
(defalias 'gravatar-retrieve #[770 "\301!\302\"\203 \303\304D\305$\202! r\306!q\210\304\307#)\207" [gravatar-cache-ttl gravatar-build-url url-cache-expired url-retrieve gravatar-retrieved t url-fetch-from-cache nil] 9 (#$ . 5057)])
#@156 Synchronously retrieve a gravatar for MAIL-ADDRESS.
Value is either an image descriptor, or the symbol `error' if the
retrieval failed.
(fn MAIL-ADDRESS)
(defalias 'gravatar-retrieve-synchronously #[257 "\301!r\302\"\203 \303\304\"\202 \305!q\210\306\307\310\")\207" [gravatar-cache-ttl gravatar-build-url url-cache-expired url-retrieve-synchronously t url-fetch-from-cache gravatar-retrieved nil identity] 5 (#$ . 5563)])
#@264 Handle Gravatar response data in current buffer.
Return the result of (apply CB DATA CBARGS), where DATA is either
an image descriptor, or the symbol `error' on failure.
This function is intended as a callback for `url-retrieve'.
(fn STATUS CB &optional CBARGS)
(defalias 'gravatar-retrieved #[770 "\302\303\"?\205\n \304 \211\203 \203 \203 \305 \210\306\203' \307\310\311#\202( \312#\313 \210\207" [url-current-object gravatar-automatic-caching plist-get :error gravatar-get-data url-store-in-cache apply create-image nil t error kill-buffer] 10 (#$ . 6001)])
(provide 'gravatar)
Mini Shell