mirror of
https://github.com/penpot/penpot.git
synced 2026-11-06 01:50:39 +00:00
42 lines
1.4 KiB
Clojure
42 lines
1.4 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns app.srepl.binfile
|
|
(:require
|
|
[app.binfile.v2 :as binfile.v2]
|
|
[app.common.uuid :as uuid]
|
|
[app.db :as db]
|
|
[app.srepl.helpers :as h]
|
|
[app.system :as sys]
|
|
[cuerdas.core :as str]))
|
|
|
|
(defn export-team!
|
|
[team-id]
|
|
(let [team-id (h/parse-uuid team-id)]
|
|
(binfile.v2/export-team! sys/system team-id)))
|
|
|
|
(defn import-team!
|
|
[path & {:keys [owner rollback?] :or {rollback? true}}]
|
|
(db/tx-run! (assoc sys/system ::db/rollback rollback?)
|
|
(fn [cfg]
|
|
(let [team (binfile.v2/import-team! cfg path)
|
|
owner (cond
|
|
(string? owner)
|
|
(db/get* cfg :profile {:email (str/lower owner)})
|
|
(uuid? owner)
|
|
(db/get* cfg :profile {:id owner}))]
|
|
|
|
(when owner
|
|
(db/insert! cfg :team-profile-rel
|
|
{:id (uuid/next)
|
|
:team-id (:id team)
|
|
:profile-id (:id owner)
|
|
:is-admin true
|
|
:is-owner true
|
|
:can-edit true}))
|
|
|
|
team))))
|