3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-10 00:41:39 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Refactor to the context api

Browse source
This commit is contained in:
alonso.torres 2024-04-18 16:42:09 +02:00 • committed by Andrey Antukh
parent 7b508f2803
commit 0ffd82299f
7 changed files with 187 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

69
frontend/src/app/plugins/api.cljs
View file

@ -8,6 +8,8 @@
"RPC for plugins runtime."
(:require
[app.common.data.macros :as dm]
[app.common.record :as cr]
[app.common.uuid :as uuid]
[app.main.store :as st]
[app.plugins.events :as events]
[app.plugins.file :as file]
@ -23,35 +25,50 @@
(map val)
(map shape/data->shape-proxy)))
(defn ^:export addListener
[type callback]
(events/add-listener type callback))
(deftype PenpotContext []
Object
(addListener
[_ type callback]
(events/add-listener type callback))
(defn ^:export getFile
[]
(file/data->file-proxy (:workspace-file @st/state) (:workspace-data @st/state)))
(getFile
[_]
(file/data->file-proxy (:workspace-file @st/state) (:workspace-data @st/state)))
(defn ^:export getPage
[]
(let [page-id (:current-page-id @st/state)]
(page/data->page-proxy (dm/get-in @st/state [:workspace-data :pages-index page-id]))))
(getPage
[_]
(let [page-id (:current-page-id @st/state)]
(page/data->page-proxy (dm/get-in @st/state [:workspace-data :pages-index page-id]))))
(defn ^:export getSelected
[]
(let [selection (get-in @st/state [:workspace-local :selected])]
(apply array (map str selection))))
(getSelected
[_]
(let [selection (get-in @st/state [:workspace-local :selected])]
(apply array (map str selection))))
(defn ^:export getSelectedShapes
[]
(let [page-id (:current-page-id @st/state)
selection (get-in @st/state [:workspace-local :selected])
objects (dm/get-in @st/state [:workspace-data :pages-index page-id :objects])
shapes (select-keys objects selection)]
(apply array (sequence xf-map-shape-proxy shapes))))
(getSelectedShapes
[_]
(let [page-id (:current-page-id @st/state)
selection (get-in @st/state [:workspace-local :selected])
objects (dm/get-in @st/state [:workspace-data :pages-index page-id :objects])
shapes (select-keys objects selection)]
(apply array (sequence xf-map-shape-proxy shapes))))
(defn ^:export getTheme
(getRoot
[_]
(let [page-id (:current-page-id @st/state)
root (dm/get-in @st/state [:workspace-data :pages-index page-id :objects uuid/zero])]
(shape/data->shape-proxy root)))
(getTheme
[_]
(let [theme (get-in @st/state [:profile :theme])]
(if (or (not theme) (= theme "default"))
"dark"
(get-in @st/state [:profile :theme])))))
(defn create-context
[]
(let [theme (get-in @st/state [:profile :theme])]
(if (or (not theme) (= theme "default"))
"dark"
(get-in @st/state [:profile :theme]))))
(cr/add-properties!
(PenpotContext.)
{:name "root" :get #(.getRoot ^js %)}
{:name "currentPage" :get #(.getPage ^js %)}))