fulltext better.

This commit is contained in:
2022-09-29 11:05:04 -07:00
parent 65ecee7014
commit 1f57ed2d1c
3 changed files with 72 additions and 30 deletions

View File

@@ -345,4 +345,4 @@
(:invoice/vendor invoice))))]
(if existing?
[]
[(doto (remove-nils invoice) println)])))
[(remove-nils invoice)])))

View File

@@ -2,26 +2,29 @@
(:require
[auto-ap.datomic :refer [conn]]
[auto-ap.graphql.utils :refer [assert-admin cleanse-query]]
[auto-ap.graphql.vendors :refer [partial-match-first]]
[auto-ap.search :as search]
[com.walmartlabs.lacinia.util :refer [attach-resolvers]]
[datomic.client.api :as dc]
[auto-ap.graphql.utils :refer [attach-tracing-resolvers]]))
(defn search [context args _]
(assert-admin (:id context))
(let [search-query (cleanse-query (:query args))
data (dc/q '[:find ?n ?i ?s
:in $ ?q
:where [(fulltext $ :ezcater-caterer/search-terms ?q) [[?i ?n _ ?s]]]]
(dc/db conn)
search-query)]
(->> data
(sort-by (comp - last))
(partial-match-first (:query args))
(map (fn [[n i]]
{:name n
:id i})))))
(let [search-query (cleanse-query (:query args))]
(for [[id name] (search/search {:q search-query}
"ezcater-caterer")]
{:name name
:id (Long/parseLong id)})))
(defn rebuild-search-index []
(search/full-index-query
(for [result (map first (dc/qseq '[:find (pull ?a [:ezcater-caterer/search-terms :db/id :ezcater-caterer/name])
:in $
:where [?a :ezcater-caterer/search-terms ]]
(dc/db conn)))]
{:id (:db/id result)
:name (:ezcater-caterer/name result)
:text (:ezcater-caterer/search-terms result)})
"ezcater-caterer"))
(def objects
{:ezcater_caterer {:fields {:name {:type 'String}