         (let [parsed (parse-all)
               symbols (set (map :full-name parsed))]
 
-          (clear-docs-repo! version)
+          (clear-docs-repo!)
 
           (println "\nWriting updated history to" history-filename "...")
           (mkdir *output-dir*)

          (let [parsed (attach-history-to-items parsed (:version-map @history))]
            (dump-api-docs! parsed))

          (println "\nCommitting docs at tag" version "...")
          (commit-docs-repo! version))

        (println "\nDone."))))


    (str "https://github.com/clojure/" repo "/blob/" version "/" strip-path
         "#L" start-line "-L" end-line)))

(defn clj-tag->version
  [v]
  (if-let [[_ semver] (re-find #"clojure-(.*)" v)]
    semver
    v))

(defn cljs-tag->version
  [v]
  (if-let [[_ number] (re-find #"r(.*)"v )]
    (str "0.0-" number)
    v))

;;------------------------------------------------------------
;; Docs Repo
;;------------------------------------------------------------
