Makes the entire form work but it just looks janky

2023-10-19 22:11:19 -07:00
parent 6059e8a4ca
commit 6863684d9e
21 changed files with 1334 additions and 181 deletions
--- a/src/clj/auto_ap/ssr/vendor.clj
+++ b/src/clj/auto_ap/ssr/vendor.clj
@@ -0,0 +1,29 @@
+(ns auto-ap.ssr.vendor
+  (:require
+   [auto-ap.datomic :refer [conn pull-attr]]
+   [auto-ap.graphql.utils :refer [is-admin?]]
+   [auto-ap.solr :as solr]
+   [clojure.string :as str]
+   [datomic.api :as dc]
+   [ring.middleware.json :refer [wrap-json-response]]))
+
+(defn search [{:keys [clients query-params identity]}]
+  
+  (doto (let [name-like-ids (when (not-empty (get query-params "q"))
+                              (set (map (comp #(Long/parseLong %) :id)
+                                        (doto 
+                                            (solr/query solr/impl "vendors"
+                                                        (doto 
+                                                            {"query"  (cond-> (format "name:(%s*)" (str/upper-case (solr/escape (get query-params "q"))))
+                                                                        (not (is-admin? identity)) (str " hidden:false"))
+                                                             "fields" "id"
+                                                             "limit"  300}
+                                                          clojure.pprint/pprint))
+                                          clojure.pprint/pprint))))
+              _             (clojure.pprint/pprint name-like-ids)
+              valid-clients (for [n name-like-ids]
+                              {"value" n "label" (pull-attr (dc/db conn) :vendor/name n)})]
+          {:body (take 10 valid-clients)})
+    clojure.pprint/pprint))
+
+(def search (wrap-json-response search))