CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-23 20:01:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

🎉 Basic changes to use penpot as a library

Browse Source
This commit is contained in:
Pablo Alba
2022-10-03 11:39:58 +02:00
committed by Alejandro Alonso
parent 10e0cf121b
commit 369dc8ffb5
11 changed files with 96 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
common/src/app/common/file_builder.cljc
View File

@@ -21,6 +21,7 @@
[app.common.types.pages-list :as ctpl]
[app.common.types.shape :as cts]
[app.common.uuid :as uuid]
[clojure.spec.alpha :as spec]
[cuerdas.core :as str]))
(def root-frame uuid/zero)
@@ -52,9 +53,18 @@
(when fail-on-spec?
(us/verify ::pcs/change change))
(let [valid? (us/valid? ::pcs/change change)]
(let [valid? (us/valid? ::pcs/change change)
explain (spec/explain-str ::pcs/change change)]
#?(:cljs
(when-not valid? (.warn js/console "Invalid shape" (clj->js change))))
(when-not valid?
(do
(.warn js/console "Invalid shape" (clj->js change))
(.warn js/console explain)))
:clj
(when-not valid?
(do
(prn "Invalid shape" change)
(prn explain))))
(cond-> file
valid?