Fix unverified deps not to handled from showing diff and upgrading #63

src/antq/core.clj

@@ -58,7 +58,7 @@
 
 (def ^:private disallowed-unverified-deps-map
   {"antq/antq" "com.github.liquidz/antq"
-   "seancorfield/next.jdbc"  "com.github.seancorfield/next.jdbc"})
+   "seancorfield/next.jdbc" "com.github.seancorfield/next.jdbc"})
 
 (def cli-options
   [[nil "--exclude=EXCLUDE" :default [] :assoc-fn concat-assoc-fn]
@@ -152,15 +152,17 @@
          (pmap #(complete-versions-by % uniq-deps-with-vers))
          (map (comp dissoc-no-longer-used-keys
                     assoc-latest-version))
-         (remove ver/latest?))))
+         (remove ver/latest?)
+         (map #(assoc % :outdated-target :version)))))
 
 (defn unverified-deps
   [deps]
   (keep #(when-let [verified-name (and (= :java (:type %))
                                        (get disallowed-unverified-deps-map (:name %)))]
            (assoc %
                   :version (:name %)
-                  :latest-version verified-name))
+                  :latest-version verified-name
+                  :outdated-target :name))
         deps))
 
 (defn exit
@@ -201,8 +203,8 @@
         deps (fetch-deps options)
         deps (unify-org-clojure-deps deps)]
     (if (seq deps)
-      (let [outdated (outdated-deps deps options)
-            outdated (concat outdated (unverified-deps deps))]
+      (let [outdated (concat (outdated-deps deps options)
+                             (unverified-deps deps))]
         (report/reporter outdated options)
 
         (cond-> outdated

src/antq/record.clj

@@ -19,3 +19,10 @@
    ;; Project type keyword
    ;; e.g. :clojure, :leiningen, :shadow-cljs and so on.
    project
+   ;; Key to indicate which parameter is outdated
+   ;; e.g. :version or :name
+   outdated-target])
+
+(defn version-outdated?
+  [dep]
+  (= :version (:outdated-target dep)))

src/antq/report/table.clj

@@ -1,6 +1,7 @@
 (ns antq.report.table
   (:require
    [antq.diff :as diff]
+   [antq.record :as r]
    [antq.report :as report]
    [antq.util.dep :as u.dep]
    [antq.util.ver :as u.ver]
@@ -33,6 +34,7 @@
 
   ;; Show diff URLs
   (let [urls (->> deps
+                  (filter r/version-outdated?)
                   (sort u.dep/compare-deps)
                   (keep diff/get-diff-url)
                   (distinct))]

src/antq/upgrade.clj

@@ -1,6 +1,7 @@
 (ns antq.upgrade
   (:require
    [antq.log :as log]
+   [antq.record :as r]
    [antq.util.zip :as u.zip]))
 
 (defmulti upgrader
@@ -42,23 +43,24 @@
 
 (defn upgrade!
   "Return only non-upgraded deps"
-  [version-checked-deps force?]
-  (when (and (seq version-checked-deps)
-             (not force?))
-    (log/info ""))
+  [deps force?]
+  (let [version-checked-deps (filter r/version-outdated? deps)]
+    (when (and (seq version-checked-deps)
+               (not force?))
+      (log/info ""))
 
-  (doall
-   (remove
-    (fn [dep]
-      (if (confirm dep force?)
-        (if-let [upgraded-content (upgrader dep)]
-          (do (log/info (format "Upgraded %s '%s' to '%s' in %s."
-                                (:name dep)
-                                (:version dep)
-                                (:latest-version dep)
-                                (:file dep)))
-              (spit (:file dep) upgraded-content)
-              true)
-          false)
-        false))
-    version-checked-deps)))
+    (doall
+     (remove
+      (fn [dep]
+        (if (confirm dep force?)
+          (if-let [upgraded-content (upgrader dep)]
+            (do (log/info (format "Upgraded %s '%s' to '%s' in %s."
+                                  (:name dep)
+                                  (:version dep)
+                                  (:latest-version dep)
+                                  (:file dep)))
+                (spit (:file dep) upgraded-content)
+                true)
+            false)
+          false))
+      version-checked-deps))))