generate gravatar on server

Author: DarMontou

project.clj

@@ -13,6 +13,7 @@
                  [ring "1.3.1"]
                  [enlive "1.1.5"]
                  [com.cemerick/friend "0.2.0"]
+                 [digest "1.4.4"]
 
                  ;; clojurescript
                  [org.clojure/clojurescript "0.0-2280"]

src/chatb0x/websockets.clj

@@ -1,7 +1,18 @@
 (ns chatb0x.websockets
   (:require [org.httpkit.server :refer [with-channel on-close on-receive send!]]
             [chatb0x.user :refer :all]
-            [cheshire.core :refer [generate-string]]))
+            [cheshire.core :refer [generate-string]]
+            [digest :refer [md5]]
+            [clojure.string :as str]))
+
+(defn calc-gravatar [email]
+  (if email
+    (str "http://www.gravatar.com/avatar/"
+         (-> email
+             (str/trim)
+             (str/lower-case)
+             (md5)))
+    (str "http://www.gravatar.com/avatar/")))
 
 ;; BRADS FUNCTIONS FOR DATA
 ;; get-assigned-agents, get-unassigned-agents, get-free-agents