         stringify-id
         (take limit-by (reverse
                           (sort-by :watchers projects)))))))
+
+(def list-top-proj (memo/ttl list-top-proj* :ttl/threshold 60000 ))
 
 (defn load-project
   [db proj]

  [dict]
  (assoc dict :id (str (:id dict))))

(defn list-top-proj
  "Given platform/language returns top n projects"
  [db platform limit-by]
  (let [conn (:connection db)

(ns hsm.actions
  (:require
    [clojure.core.memoize :as memo]
    [clojure.tools.logging :as log]
    [schema.core :as s]
    [clojurewerkz.cassaforte.cql  :as cql]
