   (defn commit-url [jar]
     (let [{:keys [url tag]} (:scm jar)
           base-url (first (re-find github-re (str url)))]
-      (when (and base-url tag) (str base-url "/commit/" tag)))))
+      (if (and base-url tag)
+        (str base-url "/commit/" tag)))))
 
 (defn dependency-link [db dep]
   (link-to

  (str (:cdn-url @config) "/" (-> jar :group_name fu/group->path) "/" (:jar_name jar) "/"))

(defn maven-jar-url [jar]
 (str "http://search.maven.org/#"
   (url-encode (apply format "artifactdetails|%s|%s|%s|jar"
        ((juxt :group_name :jar_name :version) jar)))))

(let [github-re #"^https?://github.com/([^/]+/[^/]+)"]


    "If you are looking for URLs to jar files or "
    (link-to "https://github.com/clojars/clojars-web/wiki/Stable-SNAPSHOT-Identifiers" "stable identifiers")
    " for SNAPSHOT versions you can take a look at "
    (link-to (repo-url jar) (format "the full Maven repository for %s." (jar-name jar)))]])

(defn show-versions [account jar versions]
  (html-doc (str "all versions of "(jar-name jar)) {:account account}
    [:div.light-article
     [:h1 "all versions of "(jar-link jar)]
     [:div.versions
      [:ul
       (for [v versions]
         [:li.col-xs-12.col-sm-6.col-md-4.col-lg-3
          (link-to (url-for (assoc jar :version (:version v)))
            (:version v))])]]]
    [:div.light-article
     (repo-note jar)]))

(let [border-color "#e2e4e3"
      bg-color "#fff"
