script

frenchy64 · frenchy64 · commit d21b4a9df59e · 2018-12-05T04:04:37.000-05:00
diff --git a/script/update-dep.sh b/script/update-dep.sh
@@ -2,9 +2,9 @@
 
 set -e
 
-clojure -Ascript -m update-dep $1 $2
+clojure -Sdeps '{:deps {org.clojure/tools.deps.alpha {:mvn/version "0.5.460"}}}' -Ascript:test -m update-dep $1 $2
 
 if [[ $(git status -s deps.edn) ]]
 then
-  clojure -Spom
+  clojure -Atest -Spom
 fi
diff --git a/script/update_dep.clj b/script/update_dep.clj
@@ -1,5 +1,33 @@
 (ns update-dep
-  (:require [clojure.pprint :as pp]))
+  (:require [clojure.pprint :as pp]
+            [clojure.tools.deps.alpha.gen.pom :as pom]
+            [clojure.tools.deps.alpha.util.io :refer [printerrln]]
+            [clojure.tools.deps.alpha.script.generate-manifest :as gen]))
+
+(defn- to-dep
+  [[lib {:keys [mvn/version classifier exclusions scope] :as coord}]]
+  (prn "MEME")
+  (if version
+    (cond->
+      [::pom/dependency
+       [::pom/groupId (or (namespace lib) (name lib))]
+       [::pom/artifactId (name lib)]
+       [::pom/version version]]
+
+      classifier
+      (conj [::pom/classifier classifier])
+
+      scope
+      (conj [::pom/scope scope])
+
+      (seq exclusions)
+      (conj [::pom/exclusions
+             (map (fn [excl]
+                    [::pom/exclusion
+                     [::pom/groupId (or (namespace excl) (name excl))]
+                     [::pom/artifactId (name excl)]])
+               exclusions)]))
+    (printerrln "Skipping coordinate:" coord)))
 
 (defn -main [coord version]
   (let [coord (symbol coord)
@@ -11,4 +39,7 @@
             (binding [*print-namespace-maps* false]
               (with-out-str
                 (pp/pprint
-                  (assoc-in dedn [:deps coord :mvn/version] version))))))))
+                  (assoc-in dedn [:deps coord :mvn/version] version)))))
+      (with-redefs-fn {#'pom/to-dep to-dep}
+        (gen/-main "--config-files" "deps.edn"
+                   "--gen" "pom")))))
