gravatar: implement the "email hash" to calculate the gravatar id.

https://en.gravatar.com/site/implement/hash/

diff --git a/extra/gravatar/gravatar.factor b/extra/gravatar/gravatar.factor
index 8a068f1fa33533ce0b356824e4470835ad7ad049..a08d688a64c8a93cf19caf09d352e911eefdec2e 100644 (file)
--- a/extra/gravatar/gravatar.factor
+++ b/extra/gravatar/gravatar.factor
@@ -1,8 +1,9 @@
 ! Copyright (C) 2011 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: accessors assocs classes.tuple formatting http.client
-images.http json.reader kernel sequences strings ;
+USING: accessors ascii assocs checksums checksums.md5
+classes.tuple formatting http.client images.http json.reader
+kernel math.parser sequences strings ;
 
 IN: gravatar
 
@@ -10,6 +11,9 @@ TUPLE: info aboutMe accounts currentLocation displayName emails
 hash id ims name phoneNumbers photos preferredUsername
 profileBackground profileUrl requestHash thumbnailUrl urls ;
 
+: gravatar-id ( email -- gravatar-id )
+    [ blank? ] trim >lower md5 checksum-bytes bytes>hex-string ;
+
 : gravatar-info ( gravatar-id -- info )
     "http://gravatar.com/%s.json" sprintf http-get nip
     >string json> "entry" of first info from-slots ;