Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-12 18:18:24 -05:00
Code Issues Activity

✨ Add srepl helpers for profile deletion handling

Browse source
This commit is contained in:
Andrey Antukh 2024-06-27 13:46:52 +02:00
parent f9af7f0f09
commit ba721def26
1 changed files with 36 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
backend/src/app/srepl/main.clj
View file

@ -502,8 +502,6 @@
:restored) :restored)
(defn- restore-project* (defn- restore-project*
[{:keys [::db/conn] :as cfg} project-id] [{:keys [::db/conn] :as cfg} project-id]
@ -535,6 +533,24 @@
:restored) :restored)
(defn- restore-profile*
[{:keys [::db/conn] :as cfg} profile-id]
(db/update! conn :profile
{:deleted-at nil}
{:id profile-id})
(doseq [{:keys [id]} (profile/get-owned-teams conn profile-id)]
(restore-team* cfg id))
:restored)
(defn restore-deleted-profile!
"Mark a team and all related objects as not deleted"
[profile-id]
(let [profile-id (h/parse-uuid profile-id)]
(db/tx-run! main/system restore-profile* profile-id)))
(defn restore-deleted-team! (defn restore-deleted-team!
"Mark a team and all related objects as not deleted" "Mark a team and all related objects as not deleted"
[team-id] [team-id]
@ -562,6 +578,15 @@
(assoc ::wrk/params {:object :team (assoc ::wrk/params {:object :team
:deleted-at (dt/now) :deleted-at (dt/now)
:id team-id}))))) :id team-id})))))
(defn delete-profile!
"Mark a profile for deletion"
[profile-id]
(let [profile-id (h/parse-uuid profile-id)]
(wrk/invoke! (-> main/system
(assoc ::wrk/task :delete-object)
(assoc ::wrk/params {:object :profile
:deleted-at (dt/now)
:id profile-id})))))
(defn delete-project! (defn delete-project!
"Mark a project for deletion" "Mark a project for deletion"
[project-id] [project-id]
@ -582,6 +607,15 @@
:deleted-at (dt/now) :deleted-at (dt/now)
:id file-id}))))) :id file-id})))))
(defn process-deleted-profiles-cascade
[]
(->> (db/exec! main/system ["select id, deleted_at from profile where deleted_at is not null"])
(run! (fn [{:keys [id deleted-at]}]
(wrk/invoke! (-> main/system
(assoc ::wrk/task :delete-object)
(assoc ::wrk/params {:object :profile
:deleted-at deleted-at
:id id})))))))
(defn process-deleted-teams-cascade (defn process-deleted-teams-cascade
[] []
@ -593,7 +627,6 @@
:deleted-at deleted-at :deleted-at deleted-at
:id id}))))))) :id id})))))))
(defn process-deleted-projects-cascade (defn process-deleted-projects-cascade
[] []
(->> (db/exec! main/system ["select id, deleted_at from project where deleted_at is not null"]) (->> (db/exec! main/system ["select id, deleted_at from project where deleted_at is not null"])