Use clojure.core/random-uuid.

Author: kylc

src/jank/nrepl_server/handler/clone.jank

@@ -1,8 +1,7 @@
 (ns nrepl-server.handler.clone
   (:require
-   [nrepl-server.handler :refer [handle-message]]
-   [nrepl-server.util :refer [generate-uuid]]))
+   [nrepl-server.handler :refer [handle-message]]))
 
 (defmethod handle-message :clone [_]
-  {:new-session (generate-uuid)
+  {:new-session (str (random-uuid))
    :status [:done]})

src/jank/nrepl_server/util.jank

@@ -1,15 +1,6 @@
 (ns nrepl-server.util
   (:require [clojure.walk :refer [postwalk]]))
 
-(def alpha-num  "abcdefghijklmnopqrstuvwxyz0123456789")
-
-(defn rand-str [n]
-  (apply str (repeatedly n #(rand-nth alpha-num))))
-
-(defn generate-uuid []
-  ;; TODO: use clojure.core/random-uuid once it's ported
-  (str (rand-str 8) "-" (rand-str 4) "-" (rand-str 4) "-" (rand-str 4) "-" (rand-str 12)))
-
 (defn abbreviate
   "Traverse through `form` shortening any strings which exceed the length `n`."
   [form n]