♻️ Use direct schemas instead of references

Only a very common use, basic types schemas should be used as reference (with namespaced keywords)
2025-12-11 22:14:05 +01:00 · 2025-08-20 09:36:49 +02:00
parent d7c19325cc
commit 575342b3bb
38 changed files with 182 additions and 258 deletions
--- a/backend/src/app/binfile/v3.clj
+++ b/backend/src/app/binfile/v3.clj
@@ -103,25 +103,25 @@
  (sm/encoder ctp/schema:page sm/json-transformer))

 (def encode-shape
-  (sm/encoder ::cts/shape sm/json-transformer))
+  (sm/encoder cts/schema:shape sm/json-transformer))

 (def encode-media
-  (sm/encoder ::ctf/media sm/json-transformer))
+  (sm/encoder ctf/schema:media sm/json-transformer))

 (def encode-component
-  (sm/encoder ::ctc/component sm/json-transformer))
+  (sm/encoder ctc/schema:component sm/json-transformer))

 (def encode-color
  (sm/encoder ctcl/schema:library-color sm/json-transformer))

 (def encode-typography
-  (sm/encoder ::cty/typography sm/json-transformer))
+  (sm/encoder cty/schema:typography sm/json-transformer))

 (def encode-tokens-lib
-  (sm/encoder ::cto/tokens-lib sm/json-transformer))
+  (sm/encoder cto/schema:tokens-lib sm/json-transformer))

 (def encode-plugin-data
-  (sm/encoder ::ctpg/plugin-data sm/json-transformer))
+  (sm/encoder ctpg/schema:plugin-data sm/json-transformer))

 (def encode-storage-object
  (sm/encoder schema:storage-object sm/json-transformer))
@@ -138,7 +138,7 @@
  (sm/decoder ctf/schema:media sm/json-transformer))

 (def decode-component
-  (sm/decoder ::ctc/component sm/json-transformer))
+  (sm/decoder ctc/schema:component sm/json-transformer))

 (def decode-color
  (sm/decoder ctcl/schema:library-color sm/json-transformer))
@@ -147,19 +147,19 @@
  (sm/decoder schema:file sm/json-transformer))

 (def decode-page
-  (sm/decoder ::ctp/page sm/json-transformer))
+  (sm/decoder ctp/schema:page sm/json-transformer))

 (def decode-shape
-  (sm/decoder ::cts/shape sm/json-transformer))
+  (sm/decoder cts/schema:shape sm/json-transformer))

 (def decode-typography
-  (sm/decoder ::cty/typography sm/json-transformer))
+  (sm/decoder cty/schema:typography sm/json-transformer))

 (def decode-tokens-lib
  (sm/decoder cto/schema:tokens-lib sm/json-transformer))

 (def decode-plugin-data
-  (sm/decoder ::ctpg/plugin-data sm/json-transformer))
+  (sm/decoder ctpg/schema:plugin-data sm/json-transformer))

 (def decode-storage-object
  (sm/decoder schema:storage-object sm/json-transformer))
@@ -173,31 +173,31 @@
  (sm/check-fn schema:manifest))

 (def validate-file
-  (sm/check-fn ::ctf/file))
+  (sm/check-fn ctf/schema:file))

 (def validate-page
-  (sm/check-fn ::ctp/page))
+  (sm/check-fn ctp/schema:page))

 (def validate-shape
-  (sm/check-fn ::cts/shape))
+  (sm/check-fn cts/schema:shape))

 (def validate-media
-  (sm/check-fn ::ctf/media))
+  (sm/check-fn ctf/schema:media))

 (def validate-color
  (sm/check-fn ctcl/schema:library-color))

 (def validate-component
-  (sm/check-fn ::ctc/component))
+  (sm/check-fn ctc/schema:component))

 (def validate-typography
-  (sm/check-fn ::cty/typography))
+  (sm/check-fn cty/schema:typography))

 (def validate-tokens-lib
-  (sm/check-fn ::cto/tokens-lib))
+  (sm/check-fn cto/schema:tokens-lib))

 (def validate-plugin-data
-  (sm/check-fn ::ctpg/plugin-data))
+  (sm/check-fn ctpg/schema:plugin-data))

 (def validate-storage-object
  (sm/check-fn schema:storage-object))
--- a/backend/src/app/media.clj
+++ b/backend/src/app/media.clj
@@ -38,15 +38,13 @@
   org.im4java.core.Info))

 (def schema:upload
-  (sm/register!
-   ^{::sm/type ::upload}
-   [:map {:title "Upload"}
-    [:filename :string]
-    [:size ::sm/int]
-    [:path ::fs/path]
-    [:mtype {:optional true} :string]
-    [:headers {:optional true}
-     [:map-of :string :string]]]))
+  [:map {:title "Upload"}
+   [:filename :string]
+   [:size ::sm/int]
+   [:path ::fs/path]
+   [:mtype {:optional true} :string]
+   [:headers {:optional true}
+    [:map-of :string :string]]])

 (def ^:private schema:input
  [:map {:title "Input"}
--- a/backend/src/app/rpc/commands/binfile.clj
+++ b/backend/src/app/rpc/commands/binfile.clj
@@ -127,7 +127,7 @@
   [:project-id ::sm/uuid]
   [:file-id {:optional true} ::sm/uuid]
   [:version {:optional true} ::sm/int]
-   [:file ::media/upload]])
+   [:file media/schema:upload]])

 (sv/defmethod ::import-binfile
  "Import a penpot file in a binary format. If `file-id` is provided,
--- a/backend/src/app/rpc/commands/files.clj
+++ b/backend/src/app/rpc/commands/files.clj
@@ -195,7 +195,7 @@

 (def schema:permissions-mixin
  [:map {:title "PermissionsMixin"}
-   [:permissions ::perms/permissions]])
+   [:permissions perms/schema:permissions]])

 (def schema:file-with-permissions
  [:merge {:title "FileWithPermissions"}
--- a/backend/src/app/rpc/commands/files_temp.clj
+++ b/backend/src/app/rpc/commands/files_temp.clj
@@ -79,10 +79,9 @@

 ;; --- MUTATION COMMAND: update-temp-file

-
 (def ^:private schema:update-temp-file
  [:map {:title "update-temp-file"}
-   [:changes [:vector ::cpc/change]]
+   [:changes [:vector cpc/schema:change]]
   [:revn [::sm/int {:min 0}]]
   [:session-id ::sm/uuid]
   [:id ::sm/uuid]])
--- a/backend/src/app/rpc/commands/files_thumbnails.clj
+++ b/backend/src/app/rpc/commands/files_thumbnails.clj
@@ -271,7 +271,7 @@
  [:map {:title "create-file-object-thumbnail"}
   [:file-id ::sm/uuid]
   [:object-id [:string {:max 250}]]
-   [:media ::media/upload]
+   [:media media/schema:upload]
   [:tag {:optional true} [:string {:max 50}]]])

 (sv/defmethod ::create-file-object-thumbnail
@@ -381,7 +381,7 @@
  [:map {:title "create-file-thumbnail"}
   [:file-id ::sm/uuid]
   [:revn ::sm/int]
-   [:media ::media/upload]])
+   [:media media/schema:upload]])

 (sv/defmethod ::create-file-thumbnail
  "Creates or updates the file thumbnail. Mainly used for paint the
--- a/backend/src/app/rpc/commands/files_update.clj
+++ b/backend/src/app/rpc/commands/files_update.clj
@@ -64,10 +64,10 @@
   [:revn {:min 0} ::sm/int]
   [:vern {:min 0} ::sm/int]
   [:features {:optional true} ::cfeat/features]
-   [:changes {:optional true} [:vector ::cpc/change]]
+   [:changes {:optional true} [:vector cpc/schema:change]]
   [:changes-with-metadata {:optional true}
    [:vector [:map
-              [:changes [:vector ::cpc/change]]
+              [:changes [:vector cpc/schema:change]]
              [:hint-origin {:optional true} :keyword]
              [:hint-events {:optional true} [:vector [:string {:max 250}]]]]]]
   [:skip-validate {:optional true} ::sm/boolean]])
@@ -76,7 +76,7 @@
  schema:update-file-result
  [:vector {:title "update-file-result"}
   [:map
-    [:changes [:vector ::cpc/change]]
+    [:changes [:vector cpc/schema:change]]
    [:file-id ::sm/uuid]
    [:id ::sm/uuid]
    [:revn {:min 0} ::sm/int]
--- a/backend/src/app/rpc/commands/media.clj
+++ b/backend/src/app/rpc/commands/media.clj
@@ -48,7 +48,7 @@
   [:file-id ::sm/uuid]
   [:is-local ::sm/boolean]
   [:name [:string {:max 250}]]
-   [:content ::media/upload]])
+   [:content media/schema:upload]])

 (sv/defmethod ::upload-file-media-object
  {::doc/added "1.17"
--- a/backend/src/app/rpc/commands/profile.clj
+++ b/backend/src/app/rpc/commands/profile.clj
@@ -253,7 +253,7 @@
 (def ^:private
  schema:update-profile-photo
  [:map {:title "update-profile-photo"}
-   [:file ::media/upload]])
+   [:file media/schema:upload]])

 (sv/defmethod ::update-profile-photo
  {:doc/added "1.1"
--- a/backend/src/app/rpc/commands/teams.clj
+++ b/backend/src/app/rpc/commands/teams.clj
@@ -12,7 +12,7 @@
   [app.common.features :as cfeat]
   [app.common.schema :as sm]
   [app.common.time :as ct]
-   [app.common.types.team :as tt]
+   [app.common.types.team :as types.team]
   [app.common.uuid :as uuid]
   [app.config :as cf]
   [app.db :as db]
@@ -629,7 +629,7 @@

        ;; assign owner role to new profile
        (db/update! conn :team-profile-rel
-                    (get tt/permissions-for-role :owner)
+                    (get types.team/permissions-for-role :owner)
                    {:team-id id :profile-id reassign-to}))

      ;; and finally, if all other conditions does not match and the
@@ -742,7 +742,7 @@
                         :team-id team-id
                         :role role})

-    (let [params (get tt/permissions-for-role role)]
+    (let [params (get types.team/permissions-for-role role)]
      ;; Only allow single owner on team
      (when (= role :owner)
        (db/update! conn :team-profile-rel
@@ -760,7 +760,7 @@
  [:map {:title "update-team-member-role"}
   [:team-id ::sm/uuid]
   [:member-id ::sm/uuid]
-   [:role ::tt/role]])
+   [:role types.team/schema:role]])

 (sv/defmethod ::update-team-member-role
  {::doc/added "1.17"
@@ -810,7 +810,7 @@
 (def ^:private schema:update-team-photo
  [:map {:title "update-team-photo"}
   [:team-id ::sm/uuid]
-   [:file ::media/upload]])
+   [:file media/schema:upload]])

 (sv/defmethod ::update-team-photo
  {::doc/added "1.17"
--- a/backend/src/app/rpc/commands/teams_invitations.clj
+++ b/backend/src/app/rpc/commands/teams_invitations.clj
@@ -75,7 +75,7 @@
    [:map
     [:id ::sm/uuid]
     [:fullname :string]]]
-   [:role ::types.team/role]
+   [:role types.team/schema:role]
   [:email ::sm/email]])

 (def ^:private check-create-invitation-params
@@ -257,7 +257,7 @@
 (def ^:private schema:create-team-invitations
  [:map {:title "create-team-invitations"}
   [:team-id ::sm/uuid]
-   [:role ::types.team/role]
+   [:role types.team/schema:role]
   [:emails [::sm/set ::sm/email]]])

 (def ^:private max-invitations-by-request-threshold
@@ -318,7 +318,7 @@
   [:features {:optional true} ::cfeat/features]
   [:id {:optional true} ::sm/uuid]
   [:emails [::sm/set ::sm/email]]
-   [:role ::types.team/role]])
+   [:role types.team/schema:role]])

 (sv/defmethod ::create-team-with-invitations
  {::doc/added "1.17"
@@ -403,7 +403,7 @@
  [:map {:title "update-team-invitation-role"}
   [:team-id ::sm/uuid]
   [:email ::sm/email]
-   [:role ::types.team/role]])
+   [:role types.team/schema:role]])

 (sv/defmethod ::update-team-invitation-role
  {::doc/added "1.17"
--- a/backend/src/app/rpc/commands/verify_token.clj
+++ b/backend/src/app/rpc/commands/verify_token.clj
@@ -128,7 +128,7 @@
   [:iss :keyword]
   [:exp ::ct/inst]
   [:profile-id ::sm/uuid]
-   [:role ::types.team/role]
+   [:role types.team/schema:role]
   [:team-id ::sm/uuid]
   [:member-email ::sm/email]
   [:member-id {:optional true} ::sm/uuid]])
--- a/backend/src/app/rpc/permissions.clj
+++ b/backend/src/app/rpc/permissions.clj
@@ -10,15 +10,14 @@
   [app.common.exceptions :as ex]
   [app.common.schema :as sm]))

-(sm/register!
- ^{::sm/type ::permissions}
- [:map {:title "Permissions"}
-  [:type {:gen/elements [:membership :share-link]} :keyword]
-  [:is-owner ::sm/boolean]
-  [:is-admin ::sm/boolean]
-  [:can-edit ::sm/boolean]
-  [:can-read ::sm/boolean]
-  [:is-logged ::sm/boolean]])
+(def schema:permissions
+  [:map {:title "Permissions"}
+   [:type {:gen/elements [:membership :share-link]} :keyword]
+   [:is-owner ::sm/boolean]
+   [:is-admin ::sm/boolean]
+   [:can-edit ::sm/boolean]
+   [:can-read ::sm/boolean]
+   [:is-logged ::sm/boolean]])

 (def valid-roles
  #{:admin :owner :editor :viewer})
--- a/backend/test/backend_tests/util_objects_map_test.clj
+++ b/backend/test/backend_tests/util_objects_map_test.clj
@@ -86,7 +86,7 @@

 (t/deftest internal-encode-decode
  (smt/check!
-   (smt/for [data (->> (cg/map cg/uuid (sg/generator ::cts/shape))
+   (smt/for [data (->> (cg/map cg/uuid (sg/generator cts/schema:shape))
                       (cg/not-empty))]
     (let [obj1 (omap/wrap data)
           obj2 (omap/create (deref obj1))
@@ -103,7 +103,7 @@

 (t/deftest fressian-encode-decode
  (smt/check!
-   (smt/for [data (->> (cg/map cg/uuid (sg/generator ::cts/shape))
+   (smt/for [data (->> (cg/map cg/uuid (sg/generator cts/schema:shape))
                       (cg/not-empty)
                       (cg/fmap omap/wrap)
                       (cg/fmap (fn [o] {:objects o})))]
@@ -119,7 +119,7 @@

 (t/deftest transit-encode-decode
  (smt/check!
-   (smt/for [data (->> (cg/map cg/uuid (sg/generator ::cts/shape))
+   (smt/for [data (->> (cg/map cg/uuid (sg/generator cts/schema:shape))
                       (cg/not-empty)
                       (cg/fmap omap/wrap)
                       (cg/fmap (fn [o] {:objects o})))]
--- a/common/src/app/common/files/changes.cljc
+++ b/common/src/app/common/files/changes.cljc
@@ -112,7 +112,7 @@
                [:type [:= :set-guide]]
                [:page-id ::sm/uuid]
                [:id ::sm/uuid]
-                [:params [:maybe ::ctp/guide]]]
+                [:params [:maybe ctp/schema:guide]]]
        gen    (->> (sg/generator schema)
                    (sg/fmap (fn [change]
                               (if (some? (:params change))
@@ -125,7 +125,7 @@
                [:type [:= :set-flow]]
                [:page-id ::sm/uuid]
                [:id ::sm/uuid]
-                [:params [:maybe ::ctp/flow]]]
+                [:params [:maybe ctp/schema:flow]]]

        gen    (->> (sg/generator schema)
                    (sg/fmap (fn [change]
@@ -329,7 +329,7 @@
     [:shapes {:optional true} [:vector {:gen/max 3} ::sm/any]]
     [:name {:optional true} :string]
     [:variant-id {:optional true} ::sm/uuid]
-     [:variant-properties {:optional true} [:vector ::ctv/variant-property]]]]
+     [:variant-properties {:optional true} [:vector ctv/schema:variant-property]]]]

   [:del-component
    [:map {:title "DelComponentChange"}
@@ -354,12 +354,12 @@
   [:add-typography
    [:map {:title "AddTypogrphyChange"}
     [:type [:= :add-typography]]
-     [:typography ::ctt/typography]]]
+     [:typography ctt/schema:typography]]]

   [:mod-typography
    [:map {:title "ModTypogrphyChange"}
     [:type [:= :mod-typography]]
-     [:typography ::ctt/typography]]]
+     [:typography ctt/schema:typography]]]

   [:del-typography
    [:map {:title "DelTypogrphyChange"}
@@ -434,13 +434,10 @@
 (def schema:changes
  [:sequential {:gen/max 5 :gen/min 1} schema:change])

-(sm/register! ::change schema:change)
-(sm/register! ::changes schema:changes)
-
 (def valid-change?
  (sm/lazy-validator schema:change))

-(def check-changes!
+(def check-changes
  (sm/check-fn schema:changes))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -525,7 +522,7 @@
   ;; When verify? false we spec the schema validation. Currently used
   ;; to make just 1 validation even if the changes are applied twice
   (when verify?
-     (check-changes! items))
+     (check-changes items))

   (binding [*touched-changes* (volatile! #{})
             cts/*wasm-sync* true]
--- a/common/src/app/common/files/changes_builder.cljc
+++ b/common/src/app/common/files/changes_builder.cljc
@@ -24,7 +24,7 @@
   [app.common.uuid :as uuid]))

 ;; Auxiliary functions to help create a set of changes (undo + redo)
-
+;; TODO: this is a duplicate schema
 (def schema:changes
  (sm/register!
   ^{::sm/type ::changes}
@@ -36,7 +36,7 @@
    [:stack-undo? {:optional true} boolean?]
    [:undo-group {:optional true} ::sm/any]]))

-(def check-changes!
+(def check-changes
  (sm/check-fn schema:changes))

 (defn empty-changes
@@ -168,9 +168,8 @@

 (defn apply-changes-local
  [changes & {:keys [apply-to-library?]}]
-  (assert
-   (check-changes! changes)
-   "expected valid changes")
+  (assert (check-changes changes)
+          "expected valid changes")

  (if-let [file-data (::file-data (meta changes))]
    (let [library-data  (::library-data (meta changes))
--- a/common/src/app/common/types/color.cljc
+++ b/common/src/app/common/types/color.cljc
@@ -141,7 +141,7 @@
   [:path {:optional true} :string]
   [:opacity {:optional true} [::sm/number {:min 0 :max 1}]]
   [:modified-at {:optional true} ::ct/inst]
-   [:plugin-data {:optional true} ::ctpg/plugin-data]])
+   [:plugin-data {:optional true} ctpg/schema:plugin-data]])

 (def schema:library-color
  "Used for in-transit representation of a color (per example when user
--- a/common/src/app/common/types/component.cljc
+++ b/common/src/app/common/types/component.cljc
@@ -19,19 +19,17 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (def schema:component
-  (sm/register!
-   ^{::sm/type ::component}
-   [:merge
-    [:map
-     [:id ::sm/uuid]
-     [:name :string]
-     [:path {:optional true} [:maybe :string]]
-     [:modified-at {:optional true} ::ct/inst]
-     [:objects {:gen/max 10 :optional true} ctp/schema:objects]
-     [:main-instance-id ::sm/uuid]
-     [:main-instance-page ::sm/uuid]
-     [:plugin-data {:optional true} ctpg/schema:plugin-data]]
-    ctv/schema:variant-component]))
+  [:merge
+   [:map
+    [:id ::sm/uuid]
+    [:name :string]
+    [:path {:optional true} [:maybe :string]]
+    [:modified-at {:optional true} ::ct/inst]
+    [:objects {:gen/max 10 :optional true} ctp/schema:objects]
+    [:main-instance-id ::sm/uuid]
+    [:main-instance-page ::sm/uuid]
+    [:plugin-data {:optional true} ctpg/schema:plugin-data]]
+   ctv/schema:variant-component])

 (def check-component
  (sm/check-fn schema:component))
--- a/common/src/app/common/types/file.cljc
+++ b/common/src/app/common/types/file.cljc
@@ -110,7 +110,6 @@

 (sm/register! ::data schema:data)
 (sm/register! ::file schema:file)
-(sm/register! ::media schema:media)
 (sm/register! ::colors schema:colors)
 (sm/register! ::typographies schema:typographies)

--- a/common/src/app/common/types/grid.cljc
+++ b/common/src/app/common/types/grid.cljc
@@ -56,14 +56,9 @@

 (def schema:default-grids
  [:map {:title "PageGrid"}
-   [:square {:optional true} ::square-params]
-   [:row {:optional true} ::column-params]
-   [:column {:optional true} ::column-params]])
-
-(sm/register! ::square-params schema:square-params)
-(sm/register! ::column-params schema:column-params)
-(sm/register! ::grid schema:grid)
-(sm/register! ::default-grids schema:default-grids)
+   [:square {:optional true} schema:square-params]
+   [:row {:optional true} schema:column-params]
+   [:column {:optional true} schema:column-params]])

 (def ^:private default-square-params
  {:size 16
--- a/common/src/app/common/types/page.cljc
+++ b/common/src/app/common/types/page.cljc
@@ -40,7 +40,7 @@
  [:map-of {:gen/max 2} ::sm/uuid schema:guide])

 (def schema:objects
-  [:map-of {:gen/max 5} ::sm/uuid ::cts/shape])
+  [:map-of {:gen/max 5} ::sm/uuid cts/schema:shape])

 (def schema:comment-thread-position
  [:map {:title "CommentThreadPosition"}
@@ -62,11 +62,6 @@
   [:comment-thread-positions {:optional true}
    [:map-of ::sm/uuid schema:comment-thread-position]]])

-(sm/register! ::objects schema:objects)
-(sm/register! ::page schema:page)
-(sm/register! ::guide schema:guide)
-(sm/register! ::flow schema:flow)
-
 (def valid-guide?
  (sm/lazy-validator schema:guide))

--- a/common/src/app/common/types/plugins.cljc
+++ b/common/src/app/common/types/plugins.cljc
@@ -6,7 +6,6 @@

 (ns app.common.types.plugins
  (:require
-   [app.common.schema :as sm]
   [app.common.schema.generators :as sg]))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -22,13 +21,11 @@
   :keyword])

 (def schema:plugin-data
-  (sm/register!
-   ^{::sm/type ::plugin-data}
-   [:map-of {:gen/max 5 :title "PluginsData"}
-    schema:keyword
-    [:map-of {:gen/max 5}
-     schema:string
-     schema:string]]))
+  [:map-of {:gen/max 5 :title "PluginsData"}
+   schema:keyword
+   [:map-of {:gen/max 5}
+    schema:string
+    schema:string]])

 (def ^:private schema:registry-entry
  [:map
@@ -47,6 +44,3 @@
    [:map-of {:gen/max 5}
     :string
     schema:registry-entry]]])
-
-(sm/register! ::plugin-registry schema:plugin-registry)
-(sm/register! ::registry-entry schema:registry-entry)
--- a/common/src/app/common/types/shape.cljc
+++ b/common/src/app/common/types/shape.cljc
@@ -119,8 +119,6 @@
 (def schema:points
  [:vector {:gen/max 4 :gen/min 4} ::gpt/point])

-;; FIXME: the register is necessary until this is moved to a separated
-;; ns because it is used on shapes.text
 (def valid-stroke-attrs
  "A set used for proper check if color should contain only one of the
  attrs listed in this set."
@@ -156,10 +154,8 @@
  (sm/keys schema:stroke-attrs))

 (def schema:stroke
-  (sm/register!
-   ^{::sm/type ::stroke}
-   [:and schema:stroke-attrs
-    [:fn has-valid-stroke-attrs?]]))
+  [:and schema:stroke-attrs
+   [:fn has-valid-stroke-attrs?]])

 (def check-stroke
  (sm/check-fn schema:stroke))
@@ -213,22 +209,22 @@
   [:r4 {:optional true} ::sm/safe-number]
   [:opacity {:optional true} ::sm/safe-number]
   [:grids {:optional true}
-    [:vector {:gen/max 2} ::ctg/grid]]
+    [:vector {:gen/max 2} ctg/schema:grid]]
   [:exports {:optional true}
-    [:vector {:gen/max 2} ::ctse/export]]
+    [:vector {:gen/max 2} ctse/schema:export]]
   [:strokes {:optional true}
    [:vector {:gen/max 2} schema:stroke]]
   [:blend-mode {:optional true}
    [::sm/one-of blend-modes]]
   [:interactions {:optional true}
-    [:vector {:gen/max 2} ::ctsi/interaction]]
+    [:vector {:gen/max 2} ctsi/schema:interaction]]
   [:shadow {:optional true}
    [:vector {:gen/max 1} ctss/schema:shadow]]
-   [:blur {:optional true} ::ctsb/blur]
+   [:blur {:optional true} ctsb/schema:blur]
   [:grow-type {:optional true}
    [::sm/one-of grow-types]]
   [:applied-tokens {:optional true} cto/schema:applied-tokens]
-   [:plugin-data {:optional true} ::ctpg/plugin-data]])
+   [:plugin-data {:optional true} ctpg/schema:plugin-data]])

 (def schema:group-attrs
  [:map {:title "GroupAttrs"}
@@ -274,7 +270,8 @@

 (def ^:private schema:text-attrs
  [:map {:title "TextAttrs"}
-   [:content {:optional true} [:maybe ::ctsx/content]]])
+   [:position-data {:optional true} [:maybe ctsx/schema:position-data]]
+   [:content {:optional true} [:maybe ctsx/schema:content]]])

 (defn- decode-shape
  [o]
@@ -326,8 +323,8 @@
     schema:shape-generic-attrs
     schema:shape-geom-attrs
     schema:shape-base-attrs
-     ::ctv/variant-shape
-     ::ctv/variant-container]]
+     ctv/schema:variant-shape
+     ctv/schema:variant-container]]

   [:bool
    [:merge {:title "BoolShape"}
@@ -384,13 +381,11 @@
     schema:shape-base-attrs]]])

 (def schema:shape
-  (sm/register!
-   ^{::sm/type ::shape}
-   [:and {:title "Shape"
-          :gen/gen (shape-generator)
-          :decode/json {:leave decode-shape}}
-    [:fn shape?]
-    schema:shape-attrs]))
+  [:and {:title "Shape"
+         :gen/gen (shape-generator)
+         :decode/json {:leave decode-shape}}
+   [:fn shape?]
+   schema:shape-attrs])

 (def check-shape-generic-attrs
  (sm/check-fn schema:shape-generic-attrs))
--- a/common/src/app/common/types/shape/blur.cljc
+++ b/common/src/app/common/types/shape/blur.cljc
@@ -6,30 +6,11 @@

 (ns app.common.types.shape.blur
  (:require
-   [app.common.schema :as sm]
-   [app.common.spec :as us]
-   [clojure.spec.alpha :as s]))
+   [app.common.schema :as sm]))

-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; SPEC
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(s/def ::id uuid?)
-(s/def ::type #{:layer-blur})
-(s/def ::value ::us/safe-number)
-(s/def ::hidden boolean?)
-
-(s/def ::blur
-  (s/keys :req-un [::id ::type ::value ::hidden]))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; SCHEMA
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(sm/register!
- ^{::sm/type ::blur}
- [:map {:title "Blur"}
-  [:id ::sm/uuid]
-  [:type [:= :layer-blur]]
-  [:value ::sm/safe-number]
-  [:hidden :boolean]])
+(def schema:blur
+  [:map {:title "Blur"}
+   [:id ::sm/uuid]
+   [:type [:= :layer-blur]]
+   [:value ::sm/safe-number]
+   [:hidden :boolean]])
--- a/common/src/app/common/types/shape/export.cljc
+++ b/common/src/app/common/types/shape/export.cljc
@@ -15,5 +15,3 @@
   [:type [::sm/one-of types]]
   [:scale ::sm/safe-number]
   [:suffix :string]])
-
-(sm/register! ::export schema:export)
--- a/common/src/app/common/types/shape/interactions.cljc
+++ b/common/src/app/common/types/shape/interactions.cljc
@@ -192,8 +192,6 @@
     [:prev-screen schema:prev-scren-interaction]
     [:open-url schema:open-url-interaction]]]])

-(sm/register! ::interaction schema:interaction)
-
 (def check-interaction
  (sm/check-fn schema:interaction))

--- a/common/src/app/common/types/shape/text.cljc
+++ b/common/src/app/common/types/shape/text.cljc
@@ -7,9 +7,7 @@
 (ns app.common.types.shape.text
  (:require
   [app.common.schema :as sm]
-   [app.common.types.fills :refer [schema:fill]]
-   [app.common.types.shape :as-alias shape]
-   [app.common.types.shape.text.position-data :as-alias position-data]))
+   [app.common.types.fills :refer [schema:fill]]))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; SCHEMA
@@ -63,26 +61,22 @@
             [:typography-ref-id {:optional true} [:maybe ::sm/uuid]]
             [:typography-ref-file {:optional true} [:maybe ::sm/uuid]]]]]]]]]]]]])

-(sm/register! ::content schema:content)
-
 (def valid-content?
  (sm/lazy-validator schema:content))

-(sm/register!
- ^{::sm/type ::position-data}
- [:vector {:min 1 :gen/max 2}
-  [:map
-   [:x ::sm/safe-number]
-   [:y ::sm/safe-number]
-   [:width ::sm/safe-number]
-   [:height ::sm/safe-number]
-   [:fills [:vector {:gen/max 2} schema:fill]]
-   [:font-family {:optional true} :string]
-   [:font-size {:optional true} :string]
-   [:font-style {:optional true} :string]
-   [:font-weight {:optional true} :string]
-   [:rtl {:optional true} :boolean]
-   [:text {:optional true} :string]
-   [:text-decoration {:optional true} :string]
-   [:text-transform {:optional true} :string]]])
-
+(def schema:position-data
+  [:vector {:min 1 :gen/max 2}
+   [:map
+    [:x ::sm/safe-number]
+    [:y ::sm/safe-number]
+    [:width ::sm/safe-number]
+    [:height ::sm/safe-number]
+    [:fills [:vector {:gen/max 2} schema:fill]]
+    [:font-family {:optional true} :string]
+    [:font-size {:optional true} :string]
+    [:font-style {:optional true} :string]
+    [:font-weight {:optional true} :string]
+    [:rtl {:optional true} :boolean]
+    [:text {:optional true} :string]
+    [:text-decoration {:optional true} :string]
+    [:text-transform {:optional true} :string]]])
--- a/common/src/app/common/types/team.cljc
+++ b/common/src/app/common/types/team.cljc
@@ -17,4 +17,5 @@
   :admin  {:can-edit true :is-admin true :is-owner false}
   :owner  {:can-edit true :is-admin true :is-owner true}})

-(sm/register! ::role [::sm/one-of valid-roles])
+(def schema:role
+  [::sm/one-of {:title "TeamRole"} valid-roles])
--- a/common/src/app/common/types/tokens_lib.cljc
+++ b/common/src/app/common/types/tokens_lib.cljc
@@ -1374,7 +1374,7 @@ Will return a value that matches this schema:
  (or tokens-lib (make-tokens-lib)))

 (def schema:tokens-lib
-  (sm/register!
+  (sm/type-schema
   {:type ::tokens-lib
    :pred valid-tokens-lib?
    :type-properties
--- a/common/src/app/common/types/typography.cljc
+++ b/common/src/app/common/types/typography.cljc
@@ -18,26 +18,24 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (def schema:typography
-  (sm/register!
-   ^{::sm/type ::typography}
-   [:map {:title "Typography"}
-    [:id ::sm/uuid]
-    [:name :string]
-    [:font-id :string]
-    [:font-family :string]
-    [:font-variant-id :string]
-    [:font-size :string]
-    [:font-weight :string]
-    [:font-style :string]
-    [:line-height :string]
-    [:letter-spacing :string]
-    [:text-transform :string]
-    [:modified-at {:optional true} ::ct/inst]
-    [:path {:optional true} [:maybe :string]]
-    [:plugin-data {:optional true} ::ctpg/plugin-data]]))
+  [:map {:title "Typography"}
+   [:id ::sm/uuid]
+   [:name :string]
+   [:font-id :string]
+   [:font-family :string]
+   [:font-variant-id :string]
+   [:font-size :string]
+   [:font-weight :string]
+   [:font-style :string]
+   [:line-height :string]
+   [:letter-spacing :string]
+   [:text-transform :string]
+   [:modified-at {:optional true} ::ct/inst]
+   [:path {:optional true} [:maybe :string]]
+   [:plugin-data {:optional true} ctpg/schema:plugin-data]])

 (def check-typography
-  (sm/check-fn ::typography))
+  (sm/check-fn schema:typography))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; HELPERS
--- a/common/src/app/common/types/variant.cljc
+++ b/common/src/app/common/types/variant.cljc
@@ -22,34 +22,27 @@
   [:value :string]])

 (def schema:variant-component
-  ;; A component that is part of a variant set.
-  (sm/register!
-   ^{::sm/type ::variant-component}
-   [:map
-    [:variant-id {:optional true} ::sm/uuid]
-    [:variant-properties {:optional true} [:vector schema:variant-property]]]))
+  "A component that is part of a variant set"
+  [:map
+   [:variant-id {:optional true} ::sm/uuid]
+   [:variant-properties {:optional true} [:vector schema:variant-property]]])

 (def schema:variant-shape
-  ;; The root shape of the main instance of a variant component.
+  "The root shape of the main instance of a variant component"
  [:map
   [:variant-id {:optional true} ::sm/uuid]
   [:variant-name {:optional true} :string]
   [:variant-error {:optional true} :string]])

 (def schema:variant-container
-  ;; is a board that contains all variant components of a variant set,
-  ;; for grouping them visually in the workspace.
+  "Is a board that contains all variant components of a variant set,
+  for grouping them visually in the workspace"
  [:map
   [:is-variant-container {:optional true} :boolean]])

-(sm/register! ::variant-property schema:variant-property)
-(sm/register! ::variant-shape schema:variant-shape)
-(sm/register! ::variant-container schema:variant-container)
-
 (def valid-variant-component?
  (sm/check-fn schema:variant-component))

-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (def property-prefix "Property ")
--- a/common/test/common_tests/types/shape_decode_encode_test.cljc
+++ b/common/test/common_tests/types/shape_decode_encode_test.cljc
@@ -14,7 +14,7 @@
   [app.common.types.color :refer [schema:color schema:gradient]]
   [app.common.types.path :as path]
   [app.common.types.plugins :refer [schema:plugin-data]]
-   [app.common.types.shape :as tsh]
+   [app.common.types.shape :as tsh :refer [schema:shape]]
   [app.common.types.shape.interactions :refer [schema:animation schema:interaction]]
   [app.common.types.shape.shadow :refer [schema:shadow]]
   [app.common.uuid :as uuid]
@@ -135,10 +135,10 @@
     {:num 500})))

 (t/deftest shape-json-roundtrip
-  (let [encode (sm/encoder ::tsh/shape (sm/json-transformer))
-        decode (sm/decoder ::tsh/shape (sm/json-transformer))]
+  (let [encode (sm/encoder schema:shape (sm/json-transformer))
+        decode (sm/decoder schema:shape (sm/json-transformer))]
    (smt/check!
-     (smt/for [shape (sg/generator ::tsh/shape)]
+     (smt/for [shape (sg/generator schema:shape)]
       (let [shape-1 (encode shape)
             shape-2 (json-roundtrip shape-1)
             shape-3 (decode shape-2)]
--- a/frontend/src/app/main/data/changes.cljs
+++ b/frontend/src/app/main/data/changes.cljs
@@ -7,7 +7,6 @@
 (ns app.main.data.changes
  (:require
   [app.common.data :as d]
-   [app.common.data.macros :as dm]
   [app.common.files.changes :as cpc]
   [app.common.logging :as log]
   [app.common.time :as ct]
@@ -106,13 +105,11 @@
  [{:keys [commit-id redo-changes undo-changes origin save-undo? features
           file-id file-revn file-vern undo-group tags stack-undo? source]}]

-  (dm/assert!
-   "expect valid vector of changes for redo-changes"
-   (cpc/check-changes! redo-changes))
+  (assert (cpc/check-changes redo-changes)
+          "expect valid vector of changes for redo-changes")

-  (dm/assert!
-   "expect valid vector of changes for undo-changes"
-   (cpc/check-changes! undo-changes))
+  (assert (cpc/check-changes undo-changes)
+          "expect valid vector of changes for undo-changes")

  (let [commit-id (or commit-id (uuid/next))
        source    (d/nilv source :local)
--- a/frontend/src/app/main/data/workspace/libraries.cljs
+++ b/frontend/src/app/main/data/workspace/libraries.cljs
@@ -760,13 +760,11 @@
 (defn ext-library-changed
  [library-id modified-at revn changes]

-  (dm/assert!
-   "expected valid uuid for library-id"
-   (uuid? library-id))
+  (assert (uuid? library-id)
+          "expected valid uuid for library-id")

-  (dm/assert!
-   "expected valid changes vector"
-   (ch/check-changes! changes))
+  (assert (ch/check-changes changes)
+          "expected valid changes vector")

  (ptk/reify ::ext-library-changed
    ptk/UpdateEvent
--- a/frontend/src/app/main/data/workspace/notifications.cljs
+++ b/frontend/src/app/main/data/workspace/notifications.cljs
@@ -236,7 +236,7 @@
   [:session-id ::sm/uuid]
   [:revn :int]
   [:vern :int]
-   [:changes ::cpc/changes]])
+   [:changes cpc/schema:changes]])

 (def ^:private check-file-change-params!
  (sm/check-fn schema:handle-file-change))
@@ -279,9 +279,8 @@
 (defn handle-file-restore
  [{:keys [file-id vern] :as msg}]

-  (dm/assert!
-   "expected valid parameters"
-   (check-file-restore-params msg))
+  (assert (check-file-restore-params msg)
+          "expected valid parameters")

  (ptk/reify ::handle-file-restore
    ptk/WatchEvent
@@ -302,16 +301,15 @@
   [:session-id ::sm/uuid]
   [:revn :int]
   [:modified-at ::ct/inst]
-   [:changes ::cpc/changes]])
+   [:changes cpc/schema:changes]])

-(def ^:private check-library-change-params!
+(def ^:private check-library-change-params
  (sm/check-fn schema:handle-library-change))

 (defn handle-library-change
  [{:keys [file-id modified-at changes revn] :as msg}]
-  (dm/assert!
-   "expected valid arguments"
-   (check-library-change-params! msg))
+  (assert (check-library-change-params msg)
+          "expected valid arguments")

  (ptk/reify ::handle-library-change
    ptk/WatchEvent
--- a/frontend/src/app/main/data/workspace/undo.cljs
+++ b/frontend/src/app/main/data/workspace/undo.cljs
@@ -57,8 +57,8 @@
 (def ^:private
  schema:undo-entry
  [:map {:title "undo-entry"}
-   [:undo-changes [:vector ::cpc/change]]
-   [:redo-changes [:vector ::cpc/change]]
+   [:undo-changes [:vector cpc/schema:change]]
+   [:redo-changes [:vector cpc/schema:change]]
   [:undo-group ::sm/uuid]
   [:tags [:set :keyword]]])

--- a/frontend/src/app/plugins/shape.cljs
+++ b/frontend/src/app/plugins/shape.cljs
@@ -119,7 +119,7 @@
             (-> (u/proxy->interaction self)
                 (d/patch-object params))]
         (cond
-           (not (sm/validate ::ctsi/interaction interaction))
+           (not (sm/validate ctsi/schema:interaction interaction))
           (u/display-not-valid :action interaction)

           :else
@@ -453,7 +453,7 @@
                (let [id (obj/get self "$id")
                      value (blur-defaults (parser/parse-blur value))]
                  (cond
-                    (not (sm/validate ::ctsb/blur value))
+                    (not (sm/validate ctsb/schema:blur value))
                    (u/display-not-valid :blur value)

                    (not (r/check-permission plugin-id "content:write"))
@@ -470,7 +470,7 @@
              (let [id (obj/get self "$id")
                    value (parser/parse-exports value)]
                (cond
-                  (not (sm/validate [:vector ::ctse/export] value))
+                  (not (sm/validate [:vector ctse/schema:export] value))
                  (u/display-not-valid :exports value)

                  (not (r/check-permission plugin-id "content:write"))
@@ -1129,7 +1129,7 @@
           (fn [value]
             (let [value (parser/parse-export value)]
               (cond
-                 (not (sm/validate ::ctse/export value))
+                 (not (sm/validate ctse/schema:export value))
                 (u/display-not-valid :export value)

                 :else
@@ -1161,7 +1161,7 @@
                   (-> ctsi/default-interaction
                       (d/patch-object (parser/parse-interaction trigger action delay)))]
               (cond
-                 (not (sm/validate ::ctsi/interaction interaction))
+                 (not (sm/validate ctsi/schema:interaction interaction))
                 (u/display-not-valid :addInteraction interaction)

                 :else
--- a/library/src/lib/export.cljs
+++ b/library/src/lib/export.cljs
@@ -54,7 +54,7 @@
  (sm/encoder types.tokens-lib/schema:tokens-lib sm/json-transformer))

 (def encode-plugin-data
-  (sm/encoder ::ctpg/plugin-data sm/json-transformer))
+  (sm/encoder ctpg/schema:plugin-data sm/json-transformer))

 (def ^:private valid-buckets
  #{"file-media-object"