 (defn is-newer? [v1 v2]
   (compare-versions (str->version v1) (str->version v2)))
 
-(defn exec-path []
-  (.-execPath js/process))
-
-(defn mac-resources-path [p]
-  (.resolve fs-path (exec-path) (files/join "../../../../../Resources" p)))
-
 (defn download-file [from to cb]
   (let [options (js-obj "url" from
                         "headers" (js-obj "User-Agent" "Light Table"))


(defn tar-path [v]
  (if (cache/fetch :edge)
    (str "http://temp2.kodowa.com.s3.amazonaws.com/playground/releases/" v ".tar.gz")
    (str "https://d35ac8ww5dfjyg.cloudfront.net/playground/releases/" v ".tar.gz")))

(def version-regex #"^\d+\.\d+\.\d+(-.*)?$")


        (on "end" cb))))

(defn move-tmp []
  (let [parent-dir (first (files/full-path-ls (str home-path "/tmp/")))]
    (doseq [file (files/full-path-ls (str parent-dir "/deploy/"))]
      (.cp shell "-rf" file home-path)))
  (.rm shell "-rf" (str home-path "/tmp*")))

(defn fetch-and-deploy [ver]
