Git command generator for indexed filename renamer

gistfile1.txt

;;Renames file by adding file numbers incrementally
;;To run, execute repl output in shell

(ns dba.core.utils
  (:require    [clojure.java.io :as io]
               [clojure.string :as stri]))
               
(defn- pad-left [s p length]
  (stri/replace (format
                 (str "%" length "s" )
                 s) " " p))

(map println  (map #(str  "git mv \"" (.getName %1) "\" "  "\""
                          (pad-left  %2 "0" 4)
                          "_"(.getName %1) "\""  )
                   (.listFiles (io/file "FILEPATH"))
                   (range)))