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

🎉 Add onboarding data to the database.

Browse source
This commit is contained in:
Andrey Antukh 2021-02-24 16:22:54 +01:00 • committed by Alonso Torres
parent 85781c5b7f
commit e3727aaefe
10 changed files with 183 additions and 179 deletions
Download patch file Download diff file Expand all files Collapse all files

19
backend/src/app/setup.clj
View file

@ -37,20 +37,25 @@
(let [key (-> (bn/random-bytes 64)
(bc/bytes->b64u)
(bc/bytes->str))]
(db/exec-one! conn ["insert into server_prop (id, content)
values ('secret-key', ?) on conflict do nothing"
(db/tjson key)])))
(db/insert! conn :server-prop
{:id "secret-key"
:preload true
:content (db/tjson key)}
{:on-conflict-do-nothing true})))
(defn- initialize-instance-id!
[{:keys [conn] :as cfg}]
(let [iid (uuid/random)]
(db/exec-one! conn ["insert into server_prop (id, content)
values ('instance-id', ?::jsonb) on conflict do nothing"
(db/tjson iid)])))
(db/insert! conn :server-prop
{:id "instance-id"
:preload true
:content (db/tjson iid)}
{:on-conflict-do-nothing true})))
(defn- retrieve-all
[{:keys [conn] :as cfg}]
(reduce (fn [acc row]
(assoc acc (keyword (:id row)) (db/decode-transit-pgobject (:content row))))
{}
(db/exec! conn ["select * from server_prop;"])))
(db/query conn :server-prop {:preload true})))