0.0.19 - implement project.clj multimethod for updating dependencies

build.clj

@@ -3,7 +3,7 @@
             [deps-deploy.deps-deploy :as dd]))
 
 (def lib 'org.clojars.some/depo)
-(def version "0.0.18")
+(def version "0.0.19")
 (def jar-file (format "target/%s-%s.jar" (name lib) version))
 (def class-dir "target/classes")
 (def url "https://github.com/somecho/depo")

project.clj

@@ -0,0 +1,3 @@
+(defproject depo "0.0.1"
+  :dependencies [[reagent "1.2.0"]
+                 [metosin/malli "0.11.0"]])

src/depo/core.clj

@@ -27,7 +27,7 @@
 (def CONFIGURATION
   {:command "depo"
    :description "Manage dependencies for Clojure projects easily"
-   :version "0.0.18"
+   :version "0.0.19"
    :opts [{:as "path to configuration file"
            :default nil
            :option "file"

src/depo/readwrite.clj

@@ -170,4 +170,46 @@
                               :map {:sort? false
                                     :hang? false}})
               (as-> new-conf (spit config-path new-conf))))
-        (println (str identifier) current-version "is up to date. Skipping")))))
+        (println (str identifier) current-version "is up to date. Skipping.")))))
+
+(defmethod update-dependency "project.clj"
+  [config-path arg]
+  (let [zloc (z/of-string (slurp config-path))
+        {:keys [groupID artifactID version]} (dp/parse arg)
+        identifier (symbol (if (= groupID artifactID)
+                             artifactID
+                             (str groupID "/" artifactID)))
+        dep-vec (-> zloc
+                    (z/find-value z/next :dependencies)
+                    (z/next)
+                    (z/string)
+                    (read-string))
+        dep-item (first (filter #(= (first %) identifier) dep-vec))
+        current-version (second dep-item)
+        dependency-exists? (seq  dep-item)
+        {:keys [groupID artifactID version]} (if dependency-exists?
+                                               (r/conform-version arg)
+                                               nil)]
+    (if-not dependency-exists?
+      (println arg "isn't a dependency. Skipping.")
+      (if-not (= current-version version)
+        (do
+          (println "Updating" (str identifier))
+          (println "Current version:" current-version)
+          (println "Latest version:" version)
+          (-> zloc
+              (z/find-value z/next :dependencies)
+              (z/next)
+              (z/replace (vec (map #(if (= (first %) identifier)
+                                      [identifier version]
+                                      %) dep-vec)))
+              (as-> veczip
+                    (z/map (fn [z] (if (z/rightmost? z)
+                                     z
+                                     (z/insert-newline-right z))) veczip))
+              (z/root-string)
+              (zp/zprint-str {:parse-string? true
+                              :vector {:respect-nl? true
+                                       :wrap-coll? nil}})
+              (as-> new-conf (spit config-path new-conf))))
+        (println (str identifier) current-version "is up to date. Skipping.")))))