From e1d45671c8895f3065a166de3ec40c92dd20781f Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Wed, 23 Jun 2010 05:13:41 -0400 Subject: Fix profile bug --- src/site.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/site.clj b/src/site.clj index 7577bd2..2777efc 100644 --- a/src/site.clj +++ b/src/site.clj @@ -401,7 +401,8 @@ FROM users u ;; Profile (defn take-random-image [content] - (rand-elt (filter is-image? (.split content " ")))) + (let [imgs (filter is-image? (.split content " "))] + (if (empty? imgs) nil (rand-elt imgs)))) (defn msg-transformer [key f] (fn [msg] (assoc msg key (f (msg key))))) @@ -443,6 +444,7 @@ FROM users u score (lookup-score profile-nick) raw-dumps (logger tags/fetch-dumps-by-nick :nick profile-nick + :image-only true :amount 5) dumps (logger doall (map (comp process-message-for-output -- cgit v1.2.3-70-g09d2