fix: class ordered properties

This commit is contained in:
Tienson Qin
2024-04-29 12:27:18 +08:00
parent 8275449b3c
commit 723f0a5bab
6 changed files with 46 additions and 44 deletions

View File

@@ -375,9 +375,6 @@
(cond-> (select-keys m [:block/name :block/type :block/original-name :block/schema])
(seq props)
(assoc :block/properties (update-keys props name))
(seq (:class/schema.properties m))
(assoc-in [:block/schema :properties] (mapv (partial block-uuid->name-please-fixme m)
(map :block/uuid (:class/schema.properties m))))
(seq (get-in m [:block/schema :classes]))
(update-in [:block/schema :classes] #(mapv block-uuid->name %))))))
set)))))