 
 (def plugins-dir (files/lt-home "plugins"))
 
+(defn EOF-read [s]
+  (when (and s
+             (seq s))
+    (reader/read-string s)))
+
 (defn adjust-path [path]
   (if (files/absolute? path)
     path

                      (notifos/working "Fetching available plugins...")
                      (fetch/xhr [:post (str plugin-url "/versions")] {:names (pr-str (-> @app/app ::plugins keys vec))}
                                 (fn [data]
                                   (object/merge! this {:version-cache (reader/read-string data)})
                                   (object/raise this :refresh!)
                                   ))
                      (fetch/xhr [:get plugin-url] {}
                                 (fn [data]
                                   (notifos/done-working "")
                                   (when data
                                     (object/raise this :plugin-results (reader/read-string data)))
                                   ))))



                                                  :version (or (-> plugin :version)
                                                               (-> plugin :info :version))}
                                   (fn [data]
                                     (transitive-install plugin (EOF-read data) cb))))

(defui server-plugin-ui [plugin]
  (let [info (:info plugin)
