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

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

(defn version-url []
  (if (cache/fetch :edge)
    "http://app.kodowa.com/latest-version/nw-edge"
    "http://app.kodowa.com/latest-version/nw"))

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


(defn tar-path [v]
  (if (cache/fetch :edge)
    (str "https://api.github.com/repos/LightTable/LightTable/tarball/master")
    (str "https://api.github.com/repos/LightTable/LightTable/tarball/" v)))

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

