vendor querying step 1.

src/clj/auto_ap/datomic/migrate/vendors.clj

@@ -1,6 +1,14 @@
 (ns auto-ap.datomic.migrate.vendors
-  (:require [datomic.api :as d]
-            [auto-ap.datomic :refer [uri]]))
+  (:require [datomic.api :as d]))
+
+(defn add-vendor-search-terms [conn]
+  [(->> (d/q '[:find ?i ?n
+               :in $
+               :where [?i :vendor/name ?n]]
+             (d/db conn))
+        (map (fn [[i n]]
+               {:db/id               i
+                :vendor/search-terms n})))])
 
 (def norms-map {:add-1099-stuff {:txes [[{:db/ident :vendor/legal-entity-first-name
                                           :db/doc "The first name for the legal entity"
@@ -56,7 +64,15 @@
                                               :db/valueType :db.type/long
                                               :db/cardinality :db.cardinality/one
                                               :db/noHistory true}]
-                                            ]}})
+                                            ]}
+                ::make-fulltext-search {:txes [[{:db/ident :vendor/search-terms
+                                                 :db/valueType :db.type/string
+                                                 :db/cardinality :db.cardinality/many
+                                                 :db/doc "a name search for vendors"
+                                                 :db/fulltext true}]]
+                                        :requires [:auto-ap/base-schema]}
+                ::add-vendor-search-terms {:txes-fn `add-vendor-search-terms
+                                           :requires [::make-fulltext-search]}})
 
 
 

src/clj/auto_ap/datomic/vendors.clj

@@ -85,6 +85,18 @@
        (map #(trim-usage %  (limited-clients (:id args))))
        #_(map #(assoc % :usage (get usages (:db/id %))))))
 
+(defn get-graphql-by-id [args id]
+  (->> (cond-> {:query {:find [(list 'pull '?e default-read)]
+                        :in ['$ '?e]
+                        :where ['[?e :vendor/name]]}
+                :args [(d/db (d/connect uri)) id]})
+       (d/query)
+       (map first)
+       (map #(cleanse (:id args) %))
+       (map <-datomic)
+       (map #(trim-usage %  (limited-clients (:id args))))
+       first))
+
 (defn get-by-id [id]
   
   (->> (d/q '[:find (pull ?e [*