fixed common errors.
This commit is contained in:
@@ -128,12 +128,15 @@
|
||||
(if (str/includes? q "&")
|
||||
(str "\"" q "\"~0.8")
|
||||
(let [parts (-> q
|
||||
(str/replace #"[\[\]\+\*\-]" "")
|
||||
(str/split #"\s+"))
|
||||
(str/replace #"[\[\]\+\*\-\?]" "")
|
||||
(str/split #"\s+"))
|
||||
exacts (butlast parts)
|
||||
partial (last parts)]
|
||||
(as-> exacts e
|
||||
|
||||
(mapv #(str "+" %) e)
|
||||
(conj e (str partial "*"))
|
||||
(str/join " " e)))))
|
||||
partial (some-> (last parts)
|
||||
not-empty
|
||||
(str "*"))
|
||||
query (as-> exacts e
|
||||
(filter #(not (str/blank? %)) e)
|
||||
(mapv #(str "+" %) e)
|
||||
(conj e partial)
|
||||
(str/join " " e))]
|
||||
(not-empty query))))
|
||||
|
||||
Reference in New Issue
Block a user