Commit 0284b3480f8589d714ea60e47019c9436c2aaea8
2017-06-21T11:27:50
untabify
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
diff --git a/gravatar.lisp b/gravatar.lisp
index ce238ee..1455722 100644
--- a/gravatar.lisp
+++ b/gravatar.lisp
@@ -6,9 +6,9 @@
(defun hash (email)
(ironclad:byte-array-to-hex-string
(ironclad:digest-sequence :md5
- (trivial-utf-8:string-to-utf-8-bytes
- (string-downcase (string-trim '(#\Space)
- email))))))
+ (trivial-utf-8:string-to-utf-8-bytes
+ (string-downcase (string-trim '(#\Space)
+ email))))))
(defun image-url (email &key size default force-default-p rating)
"DEFAULT may be either a URL to your own image, or one of :404, :mm,
@@ -22,19 +22,19 @@
(when force-default-p (push '("f" . "y") parameters))
(when rating (push `("r" . ,(string-downcase rating)) parameters))
(format nil "~Aavatar/~A~@[?~A~]"
- +base-uri+
- (hash email)
- (drakma::alist-to-url-encoded-string parameters
- :utf-8
- #'drakma:url-encode))))
+ +base-uri+
+ (hash email)
+ (drakma::alist-to-url-encoded-string parameters
+ :utf-8
+ #'drakma:url-encode))))
(defun generate-profile-url (email type parameters)
(format nil "~Ag2-~A.~A~@[?~A~]"
- +base-uri+
- (hash email)
- (string-downcase type)
- (drakma::alist-to-url-encoded-string parameters
- :utf-8)))
+ +base-uri+
+ (hash email)
+ (string-downcase type)
+ (drakma::alist-to-url-encoded-string parameters
+ :utf-8)))
(defun profile-url (email js-callback)
(generate-profile-url email