enhance(plugin): change marketplace metadata requests to node fetch client

This commit is contained in:
charlie
2022-06-12 17:52:22 +08:00
committed by Tienson Qin
parent 826a075b4f
commit de9ab5ed44
3 changed files with 27 additions and 20 deletions

View File

@@ -55,12 +55,13 @@
(if (or refresh? (nil? (:plugin/marketplace-pkgs @state/state)))
(p/create
(fn [resolve reject]
(-> (util/fetch plugins-url
(fn [res]
(let [pkgs (:packages res)]
(state/set-state! :plugin/marketplace-pkgs pkgs)
(resolve pkgs)))
reject)
(-> (ipc/ipc :httpFetchJSON plugins-url)
(p/then (fn [res]
(if-let [res (and res (bean/->clj res))]
(let [pkgs (:packages res)]
(state/set-state! :plugin/marketplace-pkgs pkgs)
(resolve pkgs))
(reject nil))))
(p/catch reject))))
(p/resolved (:plugin/marketplace-pkgs @state/state))))
@@ -69,18 +70,20 @@
(if (or refresh? (nil? (:plugin/marketplace-stats @state/state)))
(p/create
(fn [resolve reject]
(util/fetch stats-url
(fn [res]
(when res
(state/set-state!
:plugin/marketplace-stats
(into {} (map (fn [[k stat]]
[k (assoc stat
:total_downloads
(reduce (fn [a b] (+ a (get b 2))) 0 (:releases stat)))])
res)))
(resolve nil)))
reject)))
(-> (ipc/ipc :httpFetchJSON stats-url)
(p/then (fn [^js res]
(if-let [res (and res (bean/->clj res))]
(do
(state/set-state!
:plugin/marketplace-stats
(into {} (map (fn [[k stat]]
[k (assoc stat
:total_downloads
(reduce (fn [a b] (+ a (get b 2))) 0 (:releases stat)))])
res)))
(resolve nil))
(reject nil))))
(p/catch reject))))
(p/resolved nil)))
(defn installed?
@@ -605,7 +608,7 @@
(state/set-custom-theme! mode theme)
(state/set-theme-mode! mode))
(state/set-state! :plugin/selected-theme url))))
(.on "reset-custom-theme" (fn [^js themes]
(let [themes (bean/->clj themes)
custom-theme (dissoc themes :mode)