Add unid function (wip)

verberktstan · Jan 27, 2024 · f9cdadb · f9cdadb
1 parent 754d4d5
commit f9cdadb
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/swark/core.cljc b/src/swark/core.cljc
@@ -67,6 +67,18 @@
     (when input
       (some-> input name str/trim non-blank))))
 
+(defn unid
+  ([] (-> (random-uuid) str))
+  ([existing]
+    (-> existing set? assert) 
+    (reduce
+      (fn [s char]
+        (if (and s (-> s existing not) (-> s reverse first #{"-"} not))
+          (reduced s)
+          (str s char)))
+      nil
+      (seq (unid)))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Regarding keywords