cloud - finishes search implementation

src/clj/auto_ap/graphql/ezcater.clj

@@ -1,35 +1,22 @@
 (ns auto-ap.graphql.ezcater
   (:require
    [auto-ap.datomic :refer [conn]]
-   [auto-ap.graphql.utils
-    :refer [assert-admin attach-tracing-resolvers cleanse-query]]
-   [auto-ap.search :as search]
-   [auto-ap.utils :refer [heartbeat]]
-   [datomic.api :as dc]
-   [mount.core :as mount]
-   [yang.scheduler :as scheduler]))
+   [auto-ap.graphql.utils :refer [assert-admin attach-tracing-resolvers]]
+   [clojure.string :as str]
+   [datomic.api :as dc]))
 
 (defn search [context args _]
   (assert-admin (:id context))
-  (let [search-query (cleanse-query (:query args))]
-    (for [[id name] (search/search {:q search-query}
-                                   "ezcater-caterer")]
-      {:name name
-       :id   (Long/parseLong id)})))
+  (for [[id name] (dc/q '[:find ?i ?n
+                          :in $ ?s
+                          :where [?i :ezcater-caterer/name ?n]
+                          [(clojure.string/upper-case ?n) ?n2]
+                          [(clojure.string/includes? ?n2 ?s)]]
+                        (dc/db conn)
+                        (str/upper-case (:query args)))]
+    {:name name
+     :id   id}))
 
-(defn rebuild-search-index []
-  (search/full-index-query  
-    (for [result (map first (dc/qseq {:query '[:find (pull ?a [:ezcater-caterer/search-terms :db/id :ezcater-caterer/name])
-                                               :in $
-                                               :where [?a :ezcater-caterer/search-terms ]]
-                                      :args  [(dc/db conn)]}))]
-      {:id            (:db/id result)
-       :text  (:ezcater-caterer/search-terms result)})
-    "ezcater-caterer"))
-
-(mount/defstate indexer
-  :start (scheduler/every (* 5 60 1000) (heartbeat rebuild-search-index "rebuild-search-index"))
-  :stop (scheduler/stop indexer))
 
 (def objects
   {:ezcater_caterer  {:fields {:name   {:type 'String}