Attempts to fix searching problems

src/clj/auto_ap/graphql/utils.clj

@@ -125,12 +125,15 @@
     (assert-not-locked client-id d)))
 
 (defn cleanse-query [q]
-  (let [parts (-> q
-               (str/replace #"[\[\]\+\*]" "")
-               (str/split #"\s+"))
-        exacts (butlast parts)
-        partial (last parts)]
-    (as-> exacts e
-         (mapv #(str "+" %) e)
-         (conj e (str partial "*"))
-         (str/join " " e))))
+  (if (str/includes? q "&")
+    (str "\"" q "\"~0.8")
+    (let [parts   (-> q
+                    (str/replace #"[\[\]\+\*]" "")
+                    (str/split #"\s+"))
+          exacts  (butlast parts)
+          partial (last parts)]
+      (as-> exacts e
+        
+        (mapv #(str "+" %) e)
+        (conj e (str partial "*"))
+        (str/join " " e)))))