3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-30 05:18:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Refactor file-update for make it more reusable

Browse source
This commit is contained in:
Andrey Antukh 2024-09-04 12:02:35 +02:00
parent 52d099c80e
commit a6de12323e
2 changed files with 239 additions and 188 deletions
Download patch file Download diff file Expand all files Collapse all files

12
backend/test/backend_tests/helpers.clj
View file

@ -76,7 +76,7 @@
:enable-feature-fdata-pointer-map
:enable-feature-fdata-objets-map
:enable-feature-components-v2
:enable-file-snapshot
:enable-auto-file-snapshot
:disable-file-validation])
(defn state-init
@ -304,16 +304,18 @@
([params] (update-file* *system* params))
([system {:keys [file-id changes session-id profile-id revn]
:or {session-id (uuid/next) revn 0}}]
(db/tx-run! system (fn [{:keys [::db/conn] :as system}]
(let [file (files.update/get-file conn file-id)]
(files.update/update-file system
(-> system
(assoc ::files.update/timestamp (dt/now))
(db/tx-run! (fn [{:keys [::db/conn] :as system}]
(let [file (files.update/get-file conn file-id)]
(#'files.update/update-file* system
{:id file-id
:revn revn
:file file
:features (:features file)
:changes changes
:session-id session-id
:profile-id profile-id}))))))
:profile-id profile-id})))))))
(declare command!)