release.clj

#^:shebang '[
exec java -cp "$HOME/.m2/repository/org/clojure/clojure/1.8.0/clojure-1.8.0.jar" clojure.main "$0" "$@"
]


(def new-v (first *command-line-args*))

(assert (re-matches #"\d+\.\d+\.\d+" (or new-v "")) "Use ./release.clj <new-version>")
(println "Releasing version" new-v)

(require '[clojure.string :as str])
(require '[clojure.java.shell :as sh])
(require '[clojure.java.io :as io])

(defn update-file [f fn]
  (print "Updating" (str f "...")) (flush)
  (spit f (fn (slurp f)))
  (println "OK"))

(defn current-version []
  (second (re-find #"defproject datascript \"([0-9\.]+)\"" (slurp "project.clj"))))

(defn sh [& args]
  (apply println "Running" args)
  (let [res (apply sh/sh args)]
    (if (== 0 (:exit res))
      (do
        (println (:out res))
        (:out res))
      (binding [*out* *err*]
        (println "Process" args "exited with code" (:exit res))
        (println (:out res))
        (println (:err res))
        (throw (ex-info (str "Process" args "exited with code" (:exit res)) res))))))

(defn update-version []
  (println "\n\n[ Updating version number ]\n")
  (let [old-v (current-version)]
    (update-file "CHANGELOG.md" #(str/replace % "# WIP" (str "# " new-v)))
    (update-file "project.clj"  #(str/replace % old-v new-v))
    (update-file "README.md"    #(str/replace % old-v new-v))
    (update-file "release-js/package.json" #(str/replace % 
                                              (str "\"version\": \"" old-v "\"")
                                              (str "\"version\": \"" new-v "\"")))
    (update-file "release-js/wrapper.prefix" #(str/replace % 
                                                (str "Datascript v" old-v)
                                                (str "Datascript v" new-v)))))

(defn run-tests []
  (println "\n\n[ Running tests ]\n")
  (sh "lein" "test-clj-all")
  (sh "lein" "cljsbuild" "once" "advanced" "release")
  (sh "node" "test_node.js" "--all"))

(defn make-commit []
  (println "\n\n[ Making a commit ]\n")
  (sh "git" "add"
      "CHANGELOG.md"
      "project.clj"
      "README.md"
      "release-js/package.json"
      "release-js/wrapper.prefix")

  (sh "git" "commit" "-m" (str "Version " new-v))
  (sh "git" "tag" new-v)
  (sh "git" "push" "origin" "master"))

(defn publish-npm []
  (println "\n\n[ Publishing to npm ]\n")
  (sh/with-sh-dir "release-js" (sh "npm" "publish")))

(defn- str->json [s]
  (-> s
      (str/replace "\\" "\\\\")
      (str/replace "\"" "\\\"")
      (str/replace "\n" "\\n")))

(defn- map->json [m]
  (str "{ "
    (->>
      (map (fn [[k v]] (str "\"" (str->json k) "\": \"" (str->json v) "\"")) m)
      (str/join ",\n"))
    " }"))

(def GITHUB_AUTH (System/getenv "GITHUB_AUTH"))

(defn github-release []
  (sh "cp" "release-js/datascript.js" (str "release-js/datascript-" new-v ".min.js"))
  (let [changelog (->> (slurp "CHANGELOG.md")
                       str/split-lines
                       (drop-while #(not= (str "# " new-v) %))
                       next
                       (take-while #(not (re-matches #"# .+" %)))
                       (remove str/blank?)
                       (str/join "\n"))
        request  { "tag_name" new-v
                   "name"     new-v
                   "target_commitish" "master"
                   "body" changelog}
        response (sh "curl" "-u" GITHUB_AUTH
                     "-X" "POST"
                     "--data" (map->json request)
                     "https://api.github.com/repos/tonsky/datascript/releases")
        [_ id]    (re-find #"\"id\": (\d+)" response)]
    (sh "curl" "-u" GITHUB_AUTH
               "-X" "POST"
               "-H" "Content-Type: application/javascript"
               "--data-binary" (str "@release-js/datascript-" new-v ".min.js")
               (str "https://uploads.github.com/repos/tonsky/datascript/releases/" id "/assets?name=datascript-" new-v ".min.js"))))

(defn -main []
  (sh "lein" "clean")
  (update-version)
  (run-tests)
  (make-commit)
  (publish-npm)
  (github-release)
  (sh "lein" "with-profile" "+deploy" "deploy" "clojars"))

(-main)