 (defn download-zip [ver cb]
   (let [n (notifos/working (str "Downloading version " ver " .."))]
     (download-file (tar-path ver) (str home-path "/tmp.tar.gz") (fn [e r body]
-                                                               (notifos/done-working)
-                                                               (cb e r body)))))
+                                                                  (notifos/done-working)
+                                                                  (cb e r body)))))
 
 (defn untar [from to cb]
   (let [t (.createReadStream fs from)]

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