This commit is contained in:
2025-03-10 15:04:39 -07:00
parent 7373ef41d1
commit fcb46bf756
25 changed files with 223 additions and 464 deletions

View File

@@ -143,11 +143,14 @@
(doseq [d dates]
(assert-not-locked client-id d)))
(defn strip-special [q]
(str/replace q #"[\[\]\+\*\-\?]" ""))
(defn cleanse-query [q]
(if (str/includes? q "&")
(str "\"" q "\"~0.8")
(let [parts (-> q
(str/replace #"[\[\]\+\*\-\?]" "")
(strip-special)
(str/split #"\s+"))
exacts (butlast parts)
partial (some-> (last parts)