 (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"))

        (on "end" cb))))

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

(defn fetch-and-deploy [ver]

                                                         restart to get the latest and greatest.")
                                              :buttons [{:label "ok"}]}))))))

(def tags-url "https://api.github.com/repos/LightTable/LightTable/tags")

(defn should-update-popup [data]
  (popup/popup! {:header "There's a newer version of Light Table!"
