build.clj

(ns build
  (:refer-clojure :exclude [test])
  (:require
    [clojure.tools.build.api :as b]
    [deps-deploy.deps-deploy :as dd]))


(def lib 'com.vadelabs/uid)


(defn- get-git-tag-version
  "Get version from current git tag if it exists"
  []
  (try
    (let [proc (.exec (Runtime/getRuntime) (into-array String ["git" "describe" "--exact-match" "--tags"]))
          exit-code (.waitFor proc)]
      (when (zero? exit-code)
        (let [output (clojure.string/trim (slurp (.getInputStream proc)))]
          (when (and (not (empty? output))
                     (clojure.string/starts-with? output "v"))
            (subs output 1))))) ; Strip leading 'v'
    (catch Exception _
      nil)))


(defn- get-last-release-tag
  "Get the last release tag (tags starting with 'v')"
  []
  (try
    (let [proc (.exec (Runtime/getRuntime) (into-array String ["git" "describe" "--tags" "--abbrev=0" "--match" "v*"]))
          exit-code (.waitFor proc)]
      (when (zero? exit-code)
        (let [output (clojure.string/trim (slurp (.getInputStream proc)))]
          (when-not (empty? output)
            output))))
    (catch Exception _
      nil)))


(defn- count-commits-since-tag
  "Count commits since the given tag"
  [tag]
  (try
    (let [proc (.exec (Runtime/getRuntime) (into-array String ["git" "rev-list" (str tag "..HEAD") "--count"]))
          _ (.waitFor proc)
          output (clojure.string/trim (slurp (.getInputStream proc)))]
      (if (empty? output)
        0
        (Integer/parseInt output)))
    (catch Exception _
      0)))


(defn- count-all-commits
  "Count all commits in repository history"
  []
  (try
    (let [proc (.exec (Runtime/getRuntime) (into-array String ["git" "rev-list" "--count" "HEAD"]))
          _ (.waitFor proc)
          output (clojure.string/trim (slurp (.getInputStream proc)))]
      (if (empty? output)
        0
        (Integer/parseInt output)))
    (catch Exception _
      0)))


(defn- date-commit-count-version
  "Generate version as YYYY.MM.DD-N where N is commits since last release (or all commits if no release)"
  []
  (let [date (.format (java.time.LocalDate/now)
                      (java.time.format.DateTimeFormatter/ofPattern "yyyy.MM.dd"))
        last-tag (get-last-release-tag)
        commit-count (if last-tag
                       (count-commits-since-tag last-tag)
                       (count-all-commits))]
    (format "%s-%d" date commit-count)))


(def version (or (get-git-tag-version) (date-commit-count-version)))
(def class-dir "target/classes")


(defn- pom-template
  [version]
  [[:description "Unified interface for unique identifier generation - UUID (RFC9562) and Flake implementations"]
   [:url "https://github.com/vadelabs/uid"]
   [:licenses
    [:license
     [:name "MIT License"]
     [:url "https://opensource.org/licenses/MIT"]]]
   [:developers
    [:developer
     [:name "Pragyan"]
     [:email "pragyan@vadelabs.com"]]]
   [:scm
    [:url "https://github.com/vadelabs/uid"]
    [:connection "scm:git:https://github.com/vadelabs/uid.git"]
    [:developerConnection "scm:git:ssh:git@github.com:vadelabs/uid.git"]
    [:tag (str "v" version)]]])


(defn- jar-opts
  [opts]
  (assoc opts
         :lib lib   :version version
         :jar-file  (format "target/%s-%s.jar" lib version)
         :basis     (b/create-basis {})
         :class-dir class-dir
         :target    "target"
         :src-dirs  ["src"]
         :pom-data  (pom-template version)))


(defn jar
  "Build the JAR."
  [opts]
  (b/delete {:path "target"})
  (let [opts (jar-opts opts)]
    (println "\nWriting pom.xml...")
    (b/write-pom opts)
    (println "\nCopying source...")
    (b/copy-dir {:src-dirs ["resources" "src"] :target-dir class-dir})
    (println "\nBuilding JAR..." (:jar-file opts))
    (b/jar opts))
  opts)


(defn install
  "Install the JAR locally."
  [opts]
  (let [opts (jar-opts opts)]
    (b/install opts))
  opts)


(defn deploy
  "Deploy the JAR to Clojars."
  [opts]
  (let [{:keys [jar-file] :as opts} (jar-opts opts)]
    (dd/deploy {:installer :remote :artifact (b/resolve-path jar-file)
                :pom-file (b/pom-path (select-keys opts [:lib :class-dir]))}))
  opts)