clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-25 22:54:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance(plugin): WIP install plugin from web

Browse Source
This commit is contained in:
charlie
2024-12-25 17:31:52 +08:00
parent 68b8f2d6ed
commit e8732f9d44
5 changed files with 111 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
src/main/frontend/handler/plugin.cljs
View File

@@ -197,62 +197,67 @@
(defn setup-install-listener!
[]
(let [channel (name :lsp-updates)
listener (fn [_ ^js e]
(when-let [{:keys [status payload only-check]} (bean/->clj e)]
(case (keyword status)
listener (fn [_ctx ^js _e]
(let [e (or _e _ctx)]
(when-let [{:keys [status payload only-check]} (bean/->clj e)]
(case (keyword status)
:completed
(let [{:keys [id dst name title theme]} payload
name (or title name "Untitled")]
(if only-check
(state/consume-updates-from-coming-plugin! payload false)
(if (plugin-common-handler/installed? id)
(when-let [^js pl (get-plugin-inst id)] ;; update
(p/then
(.reload pl)
#(do
;;(if theme (select-a-plugin-theme id))
(notification/show!
(t :plugin/update-plugin name (.-version (.-options pl))) :success)
(state/consume-updates-from-coming-plugin! payload true))))
:completed
(let [{:keys [id dst name title theme]} payload
name (or title name "Untitled")]
(if only-check
(state/consume-updates-from-coming-plugin! payload false)
(if (plugin-common-handler/installed? id)
;; update plugin
(when-let [^js pl (get-plugin-inst id)]
(p/then
(.reload pl)
#(do
;;(if theme (select-a-plugin-theme id))
(notification/show!
(t :plugin/update-plugin name (.-version (.-options pl))) :success)
(state/consume-updates-from-coming-plugin! payload true))))
;; register plugin
(-> (js/LSPluginCore.register (bean/->js {:key id :url dst}))
(p/then (fn []
(when theme (js/setTimeout #(select-a-plugin-theme id) 300))
(notification/show!
(t :plugin/installed-plugin name) :success)))
(p/catch (fn [^js e]
(notification/show!
(str "Install failed: " name "\n" (.-message e))
:error)))))))
(do ;; register new
(p/then
(js/LSPluginCore.register (bean/->js {:key id :url dst}))
(fn [] (when theme (js/setTimeout #(select-a-plugin-theme id) 300))))
:error
(let [error-code (keyword (string/replace (:error-code payload) #"^[\s\:\[]+" ""))
fake-error? (contains? #{:no-new-version} error-code)
[msg type] (case error-code
:no-new-version
[(t :plugin/up-to-date ":)") :success]
[error-code :error])
pending? (seq (:plugin/updates-pending @state/state))]
(if (and only-check pending?)
(state/consume-updates-from-coming-plugin! payload false)
(do
;; consume failed download updates
(when (and (not only-check) (not pending?))
(state/consume-updates-from-coming-plugin! payload true))
;; notify human tips
(notification/show!
(t :plugin/installed-plugin name) :success)))))
(str
(if (= :error type) "[Error]" "")
(str "<" (:id payload) "> ")
msg) type)))
:error
(let [error-code (keyword (string/replace (:error-code payload) #"^[\s\:\[]+" ""))
fake-error? (contains? #{:no-new-version} error-code)
[msg type] (case error-code
(when-not fake-error?
(js/console.error "Update Error:" (:error-code payload))))
:no-new-version
[(t :plugin/up-to-date ":)") :success]
[error-code :error])
pending? (seq (:plugin/updates-pending @state/state))]
(if (and only-check pending?)
(state/consume-updates-from-coming-plugin! payload false)
(do
;; consume failed download updates
(when (and (not only-check) (not pending?))
(state/consume-updates-from-coming-plugin! payload true))
;; notify human tips
(notification/show!
(str
(if (= :error type) "[Error]" "")
(str "<" (:id payload) "> ")
msg) type)))
(when-not fake-error?
(js/console.error "Update Error:" (:error-code payload))))
:default))
:default)))
;; reset
(js/setTimeout #(state/set-state! :plugin/installing nil) 512)