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))
备注已关闭: 从v0.6.5开始使用git-process:(api/git-process {:git-args "rev-parse --short HEAD"})

2 个回答

0
by

只是好奇 - 您用它做什么?

by
我以前曾在最终捆绑包中包含commit-sha,以便我可以在"--version"信息和datomic审计-tx中包含此信息。
抱歉,我忘记说明为什么需要这个了。

我正在考虑使用git哈希为工件打标签。
支持在命名uber-file上。

将其放在`tools.gitlib`中是否合适?
0
...