This commit is contained in:
Bryce Covert
2017-05-30 20:02:56 -07:00
parent ca3c04dada
commit de78c56d44
3 changed files with 56 additions and 35 deletions

View File

@@ -45,9 +45,11 @@
(.dispose png)))
(defn delete-file [filename]
(.delete (if is-app-store?
(files! :external filename)
(files! :local filename))))
(let [file (if is-app-store?
(files! :external filename)
(files! :local filename))]
(when (.exists file)
(.delete file))))
(defn save-screenshot-file-name [name]
(str "saves/screenshot-" (clojure.core/name name) ".png" ))