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))))))