19 lines
635 B
Clojure
19 lines
635 B
Clojure
(ns prepare
|
|
(:require [clojure.string :as str]
|
|
[clojure.java.io :as io]))
|
|
|
|
;;TODO copy dirs to have images
|
|
;(io/copy (io/file "../resources/images") (io/file "./resources/public/images"))
|
|
|
|
(let [fls (file-seq (java.io.File. "../android/app/src/main/res/drawable-mdpi"))]
|
|
(spit "./resources/public/icons.edn"
|
|
(pr-str
|
|
(remove nil?
|
|
(map
|
|
(fn [fl]
|
|
(let [n (first (str/split (.getName fl) #".png"))]
|
|
(when (.isFile fl)
|
|
(io/copy (io/file (.getPath fl)) (io/file (str "./resources/public/" (str/replace n #"_" "-"))))
|
|
(str/replace n #"_" "-"))))
|
|
fls)))))
|