;;; gravatar.el --- Get Gravatars
-;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2014 Free Software Foundation, Inc.
;; Author: Julien Danjou <julien@danjou.info>
;; Keywords: news
(defgroup gravatar nil
"Gravatar."
+ :version "24.1"
:group 'comm)
(defcustom gravatar-automatic-caching t
- "Whether cache retrieved gravatar."
+ "Whether to cache retrieved gravatars."
+ :type 'boolean
:group 'gravatar)
+;; FIXME a time value is not the nicest format for a custom variable.
(defcustom gravatar-cache-ttl (days-to-time 30)
"Time to live for gravatar cache entries."
+ :type '(repeat integer)
:group 'gravatar)
+;; FIXME Doc is tautological. What are the options?
(defcustom gravatar-rating "g"
"Default rating for gravatar."
+ :type 'string
:group 'gravatar)
(defcustom gravatar-size 32
"Default size in pixels for gravatars."
+ :type 'integer
:group 'gravatar)
(defconst gravatar-base-url
(gravatar-create-image data nil t)
'error)))
+(autoload 'help-function-arglist "help-fns")
+
;;;###autoload
(defun gravatar-retrieve (mail-address cb &optional cbargs)
"Retrieve MAIL-ADDRESS gravatar and call CB on retrieval.
(let ((url (gravatar-build-url mail-address)))
(if (gravatar-cache-expired url)
(with-current-buffer (url-retrieve-synchronously url)
- (when gravatar-automatic-caching
+ (when gravatar-automatic-caching
(url-store-in-cache (current-buffer)))
(let ((data (gravatar-data->image)))
(kill-buffer (current-buffer))