(ns advent.steam
  (:require [play-clj.core :refer :all])
  (:import [com.badlogic.gdx.graphics Pixmap PixmapIO$PNG]
           [com.badlogic.gdx.files FileHandle]))

(def has-steam?
  false
  )

(def is-app-store? false)
(def all-achievements ["PARDON" "EX_CON" "PRO_WRESTLER" "SHEEP_HORDER" "SAFE_AND_SOUND" "DESTINY" "WISE_UP" "BLOODCLOT" "KITTY_KISS"])

(defn clear-achievement [])

(defn set-achievement [x])

(defn clear-all-achievements []
  (doall (map clear-achievement all-achievements)))

(defn get-bytes [filename]
  (.readBytes (if is-app-store?
                (files! :external filename)
                (files! :local filename))))

(defn write-bytes [filename bytes]
  (let [f (if is-app-store?
            (files! :external filename)
            (files! :local filename))]
    (.writeBytes f bytes false)))

(defn list-edn-files []
  (if is-app-store?
    (for [save-file  (.list (files! :external "saves/") ".edn")] 
      (str "saves/" (.name ^FileHandle save-file)))
    (for [save-file  (.list (files! :local "saves/") ".edn")] 
      (str "saves/" (.name ^FileHandle save-file)))))

(defn save-screenshot [^Pixmap pm ^String filename]
  (let [f (if is-app-store?
            (files! :external filename)
            (files! :local filename))  
        png (PixmapIO$PNG. (* (.getWidth pm) (.getHeight pm) 1.5))]
    
    (.write png f pm)
    (.dispose png)))

(defn delete-file [filename]
  (.delete (if is-app-store?
             (files! :external filename)
             (files! :local filename))))

(defn save-screenshot-file-name [name]
  (str "saves/screenshot-" (clojure.core/name name) ".png" ))

(defn save-file-name [id]
  (str "saves/" id ".edn"))