msot
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user