   (let [conn (:connection db)]
     ;; FIX THIS SHIT!@!@!@!
      (mapcat #(cql/select conn :github_project
+            (dbq/limit 1000)
             (dbq/where [[:= :id %]]))
       proj-list)))
 

  [db proj-list]
  (let [conn (:connection db)]
    (cql/select conn :github_project
      (dbq/where [[:in :full_name proj-list]]))))

(defn load-projects-by-int-id

  (log/warn "Fetching user-ids" user-ids)
  (let [conn (:connection db)]
    (cql/select conn :github_user
        (dbq/limit 100)
        (dbq/where [[:in :login user-ids]]))))

(defn fetch-top-users
