Generate random file name in Clojure

random-file-name.clj

; Better to use test.check
(defn random-name
  []
  (let [char-ranges [[\A \Z]
                     [\a \z]
                     [\0 \9]]
        chars (->> char-ranges
                   (mapcat (fn [[from-char to-char]]
                             (map char (range (int from-char) (inc (int to-char))))))
                   (concat [\_ \space \-])
                   vec)]
    (let [base-len (rand-nth (range 1 (inc 10)))
          ext-len (rand-nth (range 0 (inc 3)))
          basename (repeatedly base-len #(rand-nth chars))
          ext (repeatedly ext-len #(rand-nth chars))]
      (apply str (concat basename
                         (when-not (empty? ext)
                           [\.])
                         ext)))))

List files using Babashka:

(defn list-files
  [root]
  (->> (fs/file root)
       file-seq
       (map #(fs/relativize root %))
       (map str)
       (filter #(not (str/starts-with? % ".")))
       (remove empty?)))

or

(defn list-files
  [root]
  (->> (fs/glob root "[!.]**")
       (map #(fs/relativize root %))
       (map str)))