Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 15:39:50 -05:00
Code Issues Activity

🎉 Add first helpers for manipulate the file data from server repl.

Browse source
This commit is contained in:
Andrey Antukh 2020-12-21 09:11:33 +01:00 • committed by Alonso Torres
parent a14a71c222
commit 067aece437
1 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,4 +3,35 @@
#_:clj-kondo/ignore
(:require
[clojure.pprint :refer [pprint]]
[app.db :as db]))
[app.db :as db]
[app.common.pages.migrations :as pmg]
[app.util.blob :as blob]
[app.common.pages :as cp]))
(defn update-file
([id f] (update-file id f false))
([id f save?]
(db/with-atomic [conn db/pool]
(let [file (db/get-by-id conn :file id {:for-update true})
file (-> file
(update :data app.util.blob/decode)
(update :data pmg/migrate-data)
(update :data f)
(update :data blob/encode)
(update :revn inc))]
(when save?
(db/update! conn :file
{:data (:data file)}
{:id (:id file)}))
(update file :data blob/decode)))))
(defn update-file-raw
[id data]
(db/with-atomic [conn db/pool]
(db/update! conn :file
{:data data}
{:id id})))
;; Examples
;; (def backup (update-file #uuid "1586e1f0-3e02-11eb-b1d2-556a2f641513" identity))
;; (def x (update-file #uuid "1586e1f0-3e02-11eb-b1d2-556a2f641513" (fn [{:keys [data] :as file}] (update-in data [:pages-index #uuid "878278c0-3ef0-11eb-9d67-8551e7624f43" :objects] dissoc nil))))