     (map :a (-> search-result :body :response :docs))))
 
 (defn- get-versions! [artifact]
+  "Gets all the versions from an artifact belonging to the org.clojure."
   (->> (http/get (str "http://search.maven.org/solrsearch/select?"
                       "q=g:%22org.clojure%22+AND+a:%22"
                       artifact


(defn- update-artifact-cache! []
  (let [mvn-central-futures (get-artifacts-from-mvn-central!)
        clojars-future (future (get-artifacts-from-clojars!))]
    (-> (map deref mvn-central-futures) dorun)
    @clojars-future)
  (alter-meta! artifacts update-in [:last-modified]

(def millis-per-day (* 24 60 60 1000))

(defn get-artifacts-from-clojars! []
  "Returns a vector of [[some/lib \"0.1\"]...]."
  (->> "https://clojars.org/repo/all-jars.clj"
       java.net.URL.
       io/reader
       line-seq
       (map edn/read-string)))

(defn add-artifacts-from-clojars! []
  (->> (get-artifacts-from-clojars!)
       (map #(swap! artifacts update-in [(str (first %))] conj (second %)))
       dorun))

(defn- stale-cache? []
  (or (empty? @artifacts)
