check printing

src/clj/auto_ap/datomic/invoices.clj

@@ -19,7 +19,7 @@
 
 (defn <-datomic [x]
   (->> x
-       (map first)
+       
        
        (map #(update % :invoice/date c/from-date))
        (map #(update % :invoice/status :db/ident))
@@ -42,6 +42,7 @@
                                        '[?c :client/original-id ?original-id]) 
           (:status args) (add-arg '?status (keyword "invoice-status" (:status args))
                                   '[?e :invoice/status ?status])))
+       (map first)
        (<-datomic)))
 
 (defn sort-fn  [args]
@@ -75,9 +76,23 @@
                          :where []}
                  :args [(d/db (d/connect uri))]}
                 (add-arg '?e (cond-> id (string? id) Long/parseLong) ['?e])))
+   (map first)
    (<-datomic)   
    (first)))
 
+(defn get-multi [ids]
+  (->> 
+   (d/query {:query {:find [[default-read '...]]
+                     :in ['$ ['?e '...]]
+                     :where [['?e]]}
+             :args [(d/db (d/connect uri))
+                    (mapv #(cond-> % (string? %) Long/parseLong)
+                          ids)] } 
+
+         
+         )
+   (<-datomic)))
+
 (defn find-conflicting [{:keys [:invoice/invoice-number :invoice/vendor :invoice/client]}]
   (->> (d/query
         (cond-> {:query {:find [default-read]