Add legacy flex dir cleaner

This commit is contained in:
Andrey Antukh 2025-04-23 09:36:24 +02:00
parent 3da8b945ca
commit fef19a3c80

View file

@ -70,13 +70,25 @@
(cts/setup-shape))
shape))
(defn- fix-legacy-flex-dir
"This operation is only relevant to old data and it is fixed just
for convenience."
[shape]
(d/update-when shape :layout-flex-dir
(fn [dir]
(case dir
:reverse-row :row-reverse
:reverse-column :column-reverse
dir))))
(defn clean-shape-post-decode
"A shape procesor that expected to be executed after schema decoding
process but before validation."
[shape]
(-> shape
(fix-shape-shadow-color)
(fix-root-shape)))
(fix-root-shape)
(fix-legacy-flex-dir)))
(defn clean-file
[file & {:as _opts}]