adding accounts.

src/clj/auto_ap/datomic.clj

@@ -20,6 +20,13 @@
 (defn drop-database []
   (d/delete-database uri))
 
+(defn merge-query [query-part-1 query-part-2]
+  (-> query-part-1
+      (update-in [:query :find] into (get-in query-part-2 [:query :find]))
+      (update-in [:query :in] into (get-in query-part-2 [:query :in]))
+      (update-in [:query :where] into (get-in query-part-2 [:query :where]))
+      (update-in [:args] into (get-in query-part-2 [:args]))))
+
 (defn remove-nils [m]
 
   (let [result (reduce-kv