more viewing from UI.

src/clj/auto_ap/datomic/clients.clj

@@ -3,6 +3,7 @@
             [auto-ap.datomic :refer [uri]]))
 
 (defn get-all []
+  
   (->> (d/q '[:find (pull ?e [*])
               :where [?e :client/name]]
             (d/db (d/connect uri)))

src/clj/auto_ap/datomic/vendors.clj

@@ -0,0 +1,16 @@
+(ns auto-ap.datomic.vendors
+  (:require [datomic.api :as d]
+            [auto-ap.datomic :refer [uri]]))
+
+(defn get-all []
+  
+  (->> (d/q '[:find (pull ?e [*])
+              :where [?e :vendor/name]]
+            (d/db (d/connect uri)))
+       (map first)
+       #_(map (fn [c]
+                (update c :client/bank-accounts
+                        (fn [bas]
+                          (map (fn [ba]
+                                 (update ba :bank-account/type :db/ident ))
+                               bas)))))))