github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-05-22 16:33:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Add missing generators

Browse Source
This commit is contained in:
Andrey Antukh 2025-08-19 10:29:52 +02:00
parent 124b098c92
commit 545c78eb74
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
common/src/app/common/types/tokens_lib.cljc
View File

@ -543,18 +543,17 @@
(get-ordered-set-names [_] "get an ordered sequence of all sets names in the library") (get-ordered-set-names [_] "get an ordered sequence of all sets names in the library")
(get-set [_ set-name] "get one set looking for name")) (get-set [_ set-name] "get one set looking for name"))
(def schema:token-set-node (def ^:private schema:token-set-node
[:schema {:registry {::node [:or [:fn token-set?] [:schema {:registry {::node
[:and [:or [:fn token-set?]
[:map-of {:gen/max 5} :string [:ref ::node]] [:and
[:fn d/ordered-map?]]]}} [:map-of {:gen/max 5} :string [:ref ::node]]
[:fn d/ordered-map?]]]}}
[:ref ::node]]) [:ref ::node]])
(def schema:token-sets (def ^:private schema:token-sets
[:and [:and {:title "TokenSets"}
[:map-of {:title "TokenSets"} [:map-of :string schema:token-set-node]
:string
schema:token-set-node]
[:fn d/ordered-map?]]) [:fn d/ordered-map?]])
(def ^:private check-token-sets (def ^:private check-token-sets