cleanses user's queries.

2022-04-29 11:24:09 -07:00
parent 523afd9d37
commit 4b4246fafa
3 changed files with 19 additions and 5 deletions
--- a/src/clj/auto_ap/graphql/utils.clj
+++ b/src/clj/auto_ap/graphql/utils.clj
@@ -123,3 +123,14 @@
 (defn assert-none-locked [client-id dates]
  (doseq [d dates]
    (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))))