mirror
/
penpot
mirror of https://github.com/penpot/penpot.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

✨ Allow delete subscriptions on profile deletion request

This commit is contained in:
Andrey Antukh 2025-09-17 11:28:16 +02:00 committed by David Barragán Merino
parent c9d71f3b2d
commit 3c45a8d0b4
2 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frontend/src/app/main.cljs
View File

@ -69,7 +69,7 @@
;; Watch for profile deletion events
(->> stream
(rx/filter dp/profile-deleted?)
(rx/filter dp/profile-deleted-event?)
(rx/map da/logged-out))
;; Once profile is fetched, initialize all penpot application

31
frontend/src/app/main/data/profile.cljs
View File

@ -19,6 +19,7 @@
[app.main.repo :as rp]
[app.main.router :as rt]
[app.plugins.register :as plugins.register]
[app.util.http :as http]
[app.util.i18n :as i18n :refer [tr]]
[app.util.storage :as storage]
[beicon.v2.core :as rx]
@ -356,9 +357,19 @@
;; --- EVENT: request-account-deletion
(def profile-deleted?
(def profile-deleted-event?
(ptk/type? ::profile-deleted))
(defn- delete-subscription
[]
(if (contains? cf/flags :subscriptions)
(->> (http/fetch {:uri "/payments/subscriptions/delete"
:credentials "include"
:method :get})
(rx/map (constantly nil))
(rx/catch #(rx/empty)))
(rx/empty)))
(defn request-account-deletion
[params]
(ptk/reify ::request-account-deletion
@ -366,13 +377,17 @@
(watch [_ _ _]
(let [{:keys [on-error on-success]
:or {on-error rx/throw
on-success identity}} (meta params)]
(->> (rp/cmd! :delete-profile {})
(rx/tap on-success)
(rx/map (fn [_]
(ptk/data-event ::profile-deleted params)))
(rx/catch on-error)
(rx/delay-at-least 300))))))
on-success identity}}
(meta params)]
(rx/concat
(delete-subscription)
(->> (rp/cmd! :delete-profile {})
(rx/tap on-success)
(rx/map (fn [_]
(ptk/data-event ::profile-deleted params)))
(rx/catch on-error)
(rx/delay-at-least 300)))))))
;; --- EVENT: request-profile-recovery