Silly script for reformatting the timestamps in log file names.

rename-logs.clj

#!/usr/bin/env boot
;; vim: ft=clojure

(set-env! :dependencies '[[clojure.java-time "0.3.0"]
                          [me.raynes/fs "1.4.6"]])
(require '[clojure.string :as s]
         '[me.raynes/fs :as fs]
         '[java-time :as t])

(defn- time-part [name]
  (second (re-matches #"results-(.+)\.edn" name)))

(defn -main [& args]
  (eval (get-actions)))

(defn get-actions []
  (into
    []
    (comp
      (map (fn [file]
             {:file file
              :base-name (fs/base-name file)}))
      (map #(assoc % :results-time (time-part (:base-name %))))
      (filter :results-time)
      (map #(assoc % :results-time
                   (s/replace (:results-time %)
                              #"(?<=[-+])(\d\d)(\d\d)$"
                              "$1:$2")))
      (map #(assoc % :parsed-time
                   (t/zoned-date-time (:results-time %))))
      (map (fn [thing]
             (let [from-path (:base-name thing)
                   to-path (str "results-"
                                (t/format :iso-offset-date-time (:parsed-time thing))
                                ".edn")]
               `(fs/rename
                  ~from-path
                  ~to-path)))))
    (fs/list-dir fs/*cwd*)))