Make core/unid accept maps as well

verberktstan · May 29, 2024 · b1ab5ce · b1ab5ce
1 parent b924671
commit b1ab5ce
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/swark/core.cljc b/src/swark/core.cljc
@@ -126,10 +126,11 @@
   ([existing]
    (unid nil existing))
   ([{:keys [min-length filter-regex no-dashes?] :or {min-length 1}} existing]
-   (-> existing set? assert)
+   ;; (-> existing set? assert)
+   (assert (or (map? existing) (set? existing)))
    (reduce
     (fn [s char]
-      (if (and s (>= (count s) min-length) (-> s existing not) (-> s reverse first #{"-"} not))
+      (if (and s (>= (count s) min-length) (->> s (contains? existing) not) (-> s reverse first #{"-"} not))
         (reduced s)
         (str s char)))
     nil