Parse list pw json response

src/dda/backup/cred_rot.clj

@@ -3,7 +3,8 @@
    [orchestra.core :refer [defn-spec]]
    [clojure.spec.alpha :as s]
    [dda.backup.cred-rot.domain :as domain]
-   [dda.backup.infrastructure :as i]))
+   [dda.backup.infrastructure :as i]
+   [cheshire.core :as cc]))
 
 (s/def ::new-password-file string?)
 
@@ -19,9 +20,13 @@
     (if (not (nil? new-password-file))
       (i/execute! (domain/add-password-command config) config))))
 
-(defn-spec list-passwords! nil?
+(defn-spec list-passwords! map?
   [config ::cred-rot]
-  (i/execute! (domain/list-passwords-command config) config))
+  (i/execute-out! (domain/list-passwords-command config) config))
+
+(defn-spec parse-passwords! nil?
+  [config ::cred-rot]
+  (println (cc/parse-string (list-passwords! config))))
 
 (defn-spec replace-old-password! nil?
   []

src/dda/backup/cred_rot/domain.clj

@@ -57,7 +57,7 @@
 
 (defn-spec list-passwords-command ::cd/command
   [config ::config]
-  [(base-command config ["key" "list" "--json"])])
+  (base-command config ["key" "list" "--json"]))
 
 (defn-spec add-password-command ::cd/command
   [config ::config]

src/dda/backup/infrastructure.clj

@@ -12,3 +12,12 @@
         (println c))
       (when-not dry-run
         (apply t/shell c)))))
+
+(defn-spec execute-out! string?
+  [command ::core/command
+   config ::core/execution]
+  (let [{:keys [dry-run debug]} config]
+    (when debug
+      (println command))
+    (when-not dry-run
+      (:out (t/shell {:out :string} (clojure.string/join " " command))))))