Change naming and schema registation on tokens lib

This commit is contained in:
Andrey Antukh 2025-05-13 11:55:43 +02:00
parent d8daea72de
commit 6803c78e80

View File

@ -1506,12 +1506,13 @@ Will return a value that matches this schema:
(-> (make-tokens-lib) (-> (make-tokens-lib)
(decode-dtcg-json encoded-json))) (decode-dtcg-json encoded-json)))
(def type:tokens-lib (def schema:tokens-lib
{:type ::tokens-lib (sm/register!
:pred valid-tokens-lib? {:type ::tokens-lib
:type-properties :pred valid-tokens-lib?
{:encode/json encode-dtcg :type-properties
:decode/json decode-dtcg}}) {:encode/json encode-dtcg
:decode/json decode-dtcg}}))
(defn duplicate-set [set-name lib & {:keys [suffix]}] (defn duplicate-set [set-name lib & {:keys [suffix]}]
(let [sets (get-sets lib) (let [sets (get-sets lib)
@ -1521,8 +1522,6 @@ Will return a value that matches this schema:
(assoc :name copy-name) (assoc :name copy-name)
(assoc :modified-at (dt/now))))) (assoc :modified-at (dt/now)))))
(sm/register! type:tokens-lib)
;; === Serialization handlers for RPC API (transit) and database (fressian) ;; === Serialization handlers for RPC API (transit) and database (fressian)
(t/add-handlers! (t/add-handlers!