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

欢迎!请参阅关于页面以了解更多关于此功能的信息。

+2
tools.build
已关闭

我希望API能够获取git散列值以找到确切版本。
谢谢。

(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

我只是好奇 - 您为什么要使用它?

我过去经常将commit-sha包括在最终捆绑包中,这样我就可以在"--version"信息和datomic audit-tx中包含此信息。
抱歉,忘记写为什么需要这个了。

在考虑使用git hash来标记构件。
给给命名uber-file点个赞。

将其放置在`tools.gitlib`中好吗?
0
...