lots of QOL improvements.

src/cljc/auto_ap/utils.cljc

@@ -36,3 +36,12 @@
 
 (defn dollars= [amt1 amt2]
   (dollars-0? (- amt1 amt2) ))
+
+(defn deep-merge [v & vs]
+  (letfn [(rec-merge [v1 v2]
+            (if (and (map? v1) (map? v2))
+              (merge-with deep-merge v1 v2)
+              v2))]
+    (if (some identity vs)
+      (reduce #(rec-merge %1 %2) v vs)
+      (last vs))))