请在2024 Clojure状态调查中分享您的想法!

欢迎!有关本网站如何运行,请参阅关于页面获取更多信息。

+2
tools.build

我希望API可以获取git hash来找到精确版本。
谢谢。

(defn git-hash
  "Shells out to git and returns hash of commits on this branch:
    git rev-parse HEAD

  Options:
    :dir - dir to invoke this command from, by default current directory
    :short? - shorten hash to 7 length characters"
  [{:keys [dir short?] :or {dir "."} :as params}]
  (assert-specs "git-hash" params
                :dir ::specs/path
                :short? ::specs/boolean)
  (-> {:command-args (cond-> ["git" "rev-parse"]
                       short? (conj "--short")
                       :default (conj "HEAD"))
       :dir (.getPath (resolve-path dir))
       :out :capture}
      process
      :out
      str/trim))
已关闭,备注:使用git-process自v0.6.5起: (api/git-process {:git-args "rev-parse --short HEAD"})

2 个回答

0

仅出于好奇心 - 你用它来做什么?

我过去包括commit-sha在最终的打包中,这样我可以在"--version"信息和datomic audit-tx中包含此信息。
对不起,我忘记说明为什么需要这个了。

我正在考虑使用git hash来标记工件。
+1 对uber-file的命名。

是否应该将其放置在 `tools.gitlib` 中呢?
0
...