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

只是好奇 - 你打算用它来做什么?

我以前会将commit-sha包含在最终的包中,这样我可以在"--version"信息和datomic audit-tx中包含这些信息。
by
抱歉,我忘了写为什么我需要这个。

我正在考虑使用git hash来标记工件。
by
为命名uber-file加分。

把它放在`tools.gitlib`里面是否好呢?
0
by
...