tons of small fixes.

src/clj/auto_ap/datomic/transactions.clj

@@ -116,7 +116,6 @@
                                                  args)
                  true
                  (merge-query {:query {:find ['?e] :where ['[?e :transaction/id]]}}))]
-     (println query)
      (cond->> query
        true (d/query)
        true (apply-sort-3 args)
@@ -179,18 +178,3 @@
    (update :transaction/post-date c/from-date)
    (dissoc :transaction/id)))
 
-(defn unapprove [ids]
-  (doseq [x (partition-all 100 ids)]
-    @(d/transact (d/connect uri)
-                 (mapv (fn [i]
-                         {:db/id i
-                          :transaction/approval-status :transaction-approval-status/unapproved})
-                       x))))
-
-(defn delete [ids]
-  (doseq [x (partition-all 100 ids)]
-    @(d/transact (d/connect uri)
-                 (mapcat (fn [i]
-                           [[:db/retractEntity i]
-                            [:db/retractEntity [:journal-entry/original-entity i]]])
-                         x))))