Unid functionality (#3)

Creation of (short) unique id strings

deps.edn

@@ -1,4 +1,7 @@
-{:aliases
+{:deps
+ ;; Clojure standard library
+ {org.clojure/clojure {:mvn/version "1.11.0"}}
+:aliases
  {:repl/reloaded
   {:extra-deps {nrepl/nrepl                  {:mvn/version "1.0.0"}
                 cider/cider-nrepl            {:mvn/version "0.28.7"}

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
 

test/swark/core_test.clj

@@ -63,6 +63,11 @@
     nil             "  "
     nil             nil))
 
+(t/deftest unid
+  (t/is (string? (sut/unid)))
+  (t/is (-> #{"x"} sut/unid count #{1}))
+  (t/is (-> (reduce (fn [x _] (conj x (sut/unid x))) #{} (range 999)) count #{999})))
+
 (t/deftest ->keyword
   (t/are [result match replacement input] (= result (sut/->keyword match replacement input))
     :test     nil          nil :test