multiple values select enhancements

This commit is contained in:
Tienson Qin
2023-09-25 21:33:16 +08:00
parent e907186002
commit 22d3d71040
6 changed files with 312 additions and 196 deletions

View File

@@ -81,6 +81,11 @@
(remove nil?))
exact-match? (contains? (set (map (comp string/lower-case str extract-fn) search-result'))
(string/lower-case @input))
search-result' (if multiple-choices?
(sort-by (fn [item]
(not (contains? @*selected-choices (:value item))))
search-result')
search-result')
search-result (if (and show-new-when-not-exact-match?
(not exact-match?)
(not (string/blank? @input))