zero-length avatars aren't included in chat userlist

1 files changed, 4 insertions, 5 deletions

diff --git a/src/site.clj b/src/site.clj
index b5c7ade..972da44 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -74,6 +74,9 @@
 (defn resp-success [message]
   {:status 200 :headers {} :body (json-str message)})
 
+(defn non-empty-string? [s]
+  (and s (> (count s) 0)))
+
 ;; Database
 
 (defn do-select [query]
@@ -132,8 +135,7 @@
                          @(room :messages)))))
 
 (defn process-user [u]
-  (prn u)
-  (if (u :avatar)   
+  (if (non-empty-string? (u :avatar))
     {"nick" (u :nick)
      "avatar" (encode-html-entities (u :avatar))}
     {"nick" (u :nick)}))
@@ -247,9 +249,6 @@
 
 ;; Profile
 
-(defn non-empty-string? [s]
-  (and s (> (count s) 0)))
-
 (defn profile [session profile-nick offset]
   (let [user-info (fetch-nick profile-nick)]
     (if user-info