check printing

src/clj/auto_ap/datomic/clients.clj

@@ -14,3 +14,16 @@
                         (map (fn [ba]
                                (update ba :bank-account/type :db/ident ))
                              bas)))))))
+
+(defn get-by-id [id]
+  (->> 
+   (d/query (-> {:query {:find ['(pull ?e [*])]
+                         :in ['$ '?e]
+                         :where [['?e]]}
+                 :args [(d/db (d/connect uri)) (cond-> id (string? id) Long/parseLong)]}
+                ))
+   (first)
+   (first)
+   #_(map first)
+   
+   #_(first)))