sostler add favorite to frontpage

1 files changed, 9 insertions, 5 deletions

diff --git a/src/datalayer.clj b/src/datalayer.clj
index c74315a..56d5a60 100644
--- a/src/datalayer.clj
+++ b/src/datalayer.clj
@@ -85,7 +85,8 @@ WHERE  u.nick = ANY(?)"
 (def message-cache-size 50000)
 (def message-cache (multikey-lru-cache
                     fetch-messages-by-id-uncached
-                    message-cache-size))
+                    message-cache-size
+                    to-int))
 
 (defn fetch-messages-by-id [m-ids]
   (get-keys message-cache m-ids))
@@ -154,14 +155,17 @@ WHERE  u.nick = ANY(?)"
     {symbol (.getElement t)
      :score (int (.getScore t))}))
 
-(defn fetch-redis-daily-hall [date-str offset num]
+(defn fetch-redis-daily-hall [date-str offset num user-id]
   (let [msg-ids  (fetch-redis-zset (redis-daily-hall-key date-str)
                                    :message_id
                                    offset
                                    num)
-        full-msgs (fetch-messages-by-id (map :message_id msg-ids))]
-    (for [[info full] (map list msg-ids full-msgs)]
-      (assoc full :score (:score info)))))
+        full-msgs (fetch-messages-by-id (map :message_id msg-ids))
+        full-msgs (for [[info full] (map list msg-ids full-msgs)]
+                    (assoc full :score (:score info)))]
+    (if user-id
+      (tags/add-user-favs-to-msgs full-msgs user-id)
+      full-msgs)))
 
 (defn fetch-redis-directory [page num]
   (vec