|
@@ -9,7 +9,8 @@
|
|
|
[frontend.config :as config]
|
|
[frontend.config :as config]
|
|
|
[lambdaisland.glogi :as log]
|
|
[lambdaisland.glogi :as log]
|
|
|
[promesa.core :as p]
|
|
[promesa.core :as p]
|
|
|
- [frontend.handler.page :as page-handler]))
|
|
|
|
|
|
|
+ [frontend.handler.page :as page-handler]
|
|
|
|
|
+ [frontend.handler.notification :as notification]))
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn get-published-pages
|
|
(defn get-published-pages
|
|
@@ -37,6 +38,11 @@
|
|
|
(log/error :publish/delete-page-failed error)
|
|
(log/error :publish/delete-page-failed error)
|
|
|
(reject error)))))))
|
|
(reject error)))))))
|
|
|
|
|
|
|
|
|
|
+(defn update-state-and-notify
|
|
|
|
|
+ [page-name]
|
|
|
|
|
+ (page-handler/page-add-properties! page-name {:published false})
|
|
|
|
|
+ (notification/show! (util/format "Remove Page \"%s\" from Logseq server success" page-name) :success))
|
|
|
|
|
+
|
|
|
(rum/defc my-publishing
|
|
(rum/defc my-publishing
|
|
|
< rum/reactive db-mixins/query
|
|
< rum/reactive db-mixins/query
|
|
|
[]
|
|
[]
|
|
@@ -67,11 +73,14 @@
|
|
|
(fn [e]
|
|
(fn [e]
|
|
|
(util/stop e)
|
|
(util/stop e)
|
|
|
(-> (p/let [_ (delete-page-from-logseq current-project permalink)]
|
|
(-> (p/let [_ (delete-page-from-logseq current-project permalink)]
|
|
|
- (page-handler/page-add-properties! page-name {:published false}))
|
|
|
|
|
|
|
+ (update-state-and-notify page-name))
|
|
|
(p/catch
|
|
(p/catch
|
|
|
(fn [error]
|
|
(fn [error]
|
|
|
(let [status (.-status error)
|
|
(let [status (.-status error)
|
|
|
not-found-on-server 404]
|
|
not-found-on-server 404]
|
|
|
- (when (= not-found-on-server status)
|
|
|
|
|
- (page-handler/page-add-properties! page-name {:published false})))))))}
|
|
|
|
|
|
|
+ (if (= not-found-on-server status)
|
|
|
|
|
+ (update-state-and-notify page-name)
|
|
|
|
|
+ (let [message (util/format "Remove Page \"%s\" from Logseq server failed."
|
|
|
|
|
+ page-name)]
|
|
|
|
|
+ (notification/show! message :failed))))))))}
|
|
|
(t :page/cancel-publishing)]]]]))]])])))
|
|
(t :page/cancel-publishing)]]]]))]])])))
|