simpler version-fn

exoscale · Jul 18, 2024 · 83f0c2d · 83f0c2d
1 parent 6738ddb
commit 83f0c2d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/src/exoscale/tools/project/api/version.clj b/src/exoscale/tools/project/api/version.clj
@@ -5,10 +5,15 @@
  [clojure.tools.deps.alpha.util.dir :as td]
  [exoscale.deps-version :as version]))
 
+(defn run-version-fn [version-fn]
+ (when-let [f (requiring-resolve version-fn)]
+ (f)))
+
 (defn get-version
- [{:as _opts :exoscale.project/keys [version-file version]}]
+ [{:as _opts :exoscale.project/keys [version-file version-fn version]}]
  (or version
- (some-> version-file version/read-version-file*)))
+ (some-> version-file version/read-version-file*)
+ (qualified-ident? version-fn) (run-version-fn version-fn)))
 
 (defn remove-snapshot
  [{:as _opts

diff --git a/src/exoscale/tools/project/standalone.clj b/src/exoscale/tools/project/standalone.clj
@@ -60,7 +60,6 @@
 
 (defn assoc-version
  [{:as opts :exoscale.project/keys [version-file]}]
-
  (let [v (version/read-version-file* version-file)]
  (cond-> opts
  (some? v)