3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-22 18:56:13 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Refactor plugins proxies internal data

Browse source
This commit is contained in:
alonso.torres 2024-05-17 12:53:59 +02:00 • committed by Andrey Antukh
parent b59dae57ca
commit d6de1fdbdf
7 changed files with 454 additions and 429 deletions
Download patch file Download diff file Expand all files Collapse all files

28
frontend/src/app/plugins/file.cljs
View file

@ -7,38 +7,34 @@
(ns app.plugins.file
"RPC for plugins runtime."
(:require
[app.common.data.macros :as dm]
[app.common.record :as crc]
[app.plugins.page :as page]
[app.plugins.utils :refer [get-data-fn]]))
[app.plugins.utils :refer [locate-file proxy->file]]
[app.util.object :as obj]))
(def ^:private
xf-map-page-proxy
(comp
(map val)
(map page/data->page-proxy)))
(deftype FileProxy [#_:clj-kondo/ignore _data]
(deftype FileProxy [$id]
Object
(getPages [_]
;; Returns a lazy (iterable) of all available pages
(apply array (sequence xf-map-page-proxy (:pages-index _data)))))
(let [file (locate-file $id)]
(apply array (sequence (map #(page/page-proxy $id %)) (dm/get-in file [:data :pages]))))))
(crc/define-properties!
FileProxy
{:name js/Symbol.toStringTag
:get (fn [] (str "FileProxy"))})
(defn data->file-proxy
[file data]
(defn file-proxy
[id]
(crc/add-properties!
(FileProxy. (merge file data))
{:name "_data" :enumerable false}
(FileProxy. id)
{:name "$id" :enumerable false}
{:name "id"
:get (get-data-fn :id str)}
:get #(dm/str (obj/get % "$id"))}
{:name "name"
:get (get-data-fn :name)}
:get #(-> % proxy->file :name)}
{:name "pages"
:get #(.getPages ^js %)}))