github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-13 23:48:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

✨ Add binary fills initialization on workspace fetch

Browse Source
This commit is contained in:
Andrey Antukh 2025-05-28 17:10:14 +02:00
parent b5808701ec
commit 158f759cde
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
frontend/src/app/main/data/workspace.cljs
View File

@ -20,9 +20,11 @@
[app.common.logic.shapes :as cls] [app.common.logic.shapes :as cls]
[app.common.transit :as t] [app.common.transit :as t]
[app.common.types.component :as ctc] [app.common.types.component :as ctc]
[app.common.types.fill :as types.fill]
[app.common.types.shape :as cts] [app.common.types.shape :as cts]
[app.common.types.shape-tree :as ctst] [app.common.types.shape-tree :as ctst]
[app.common.uuid :as uuid] [app.common.uuid :as uuid]
[app.config :as cf]
[app.main.data.changes :as dch] [app.main.data.changes :as dch]
[app.main.data.comments :as dcmt] [app.main.data.comments :as dcmt]
[app.main.data.common :as dcm] [app.main.data.common :as dcm]
@ -80,6 +82,7 @@
[app.util.timers :as tm] [app.util.timers :as tm]
[app.util.webapi :as wapi] [app.util.webapi :as wapi]
[beicon.v2.core :as rx] [beicon.v2.core :as rx]
[clojure.walk :as walk]
[cuerdas.core :as str] [cuerdas.core :as str]
[potok.v2.core :as ptk])) [potok.v2.core :as ptk]))
@ -133,10 +136,30 @@
(rx/of [k v]))))))) (rx/of [k v])))))))
(rx/reduce conj {}))) (rx/reduce conj {})))
(defn process-fills
"A function responsible to analyze the file data or shape for references
and apply lookup-index on it."
[data]
(letfn [(process-map-form [form]
(let [fills (get form :fills)]
(if (vector? fills)
(assoc form :fills (types.fill/from-plain fills))
form)))
(process-form [form]
(if (map? form)
(process-map-form form)
form))]
(if (contains? cf/flags :frontend-binary-fills)
(walk/postwalk process-form data)
data)))
(defn- resolve-file (defn- resolve-file
[file] [file]
(->> (fpmap/resolve-file file) (->> (fpmap/resolve-file file)
(rx/map :data) (rx/map :data)
(rx/map process-fills)
(rx/mapcat (rx/mapcat
(fn [{:keys [pages-index] :as data}] (fn [{:keys [pages-index] :as data}]
(->> (rx/from (seq pages-index)) (->> (rx/from (seq pages-index))