3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-26 15:37:26 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Create paths, booleans and ellipses through plugins api

Browse source
This commit is contained in:
alonso.torres 2024-06-03 13:31:49 +02:00 • committed by Andrey Antukh
parent e4e537b960
commit 55c27f140a
3 changed files with 73 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -15,6 +15,7 @@
[app.common.types.shape :as cts]
[app.common.uuid :as uuid]
[app.main.data.changes :as ch]
[app.main.data.workspace.bool :as dwb]
[app.main.data.workspace.groups :as dwg]
[app.main.data.workspace.media :as dwm]
[app.main.store :as st]
@ -124,6 +125,26 @@
[_]
(create-shape :rect))
(createEllipse
[_]
(create-shape :circle))
(createPath
[_]
(let [page-id (:current-page-id @st/state)
page (dm/get-in @st/state [:workspace-data :pages-index page-id])
shape (cts/setup-shape
{:type :path
:content [{:command :move-to :params {:x 0 :y 0}}
{:command :line-to :params {:x 100 :y 100}}]})
changes
(-> (cb/empty-changes)
(cb/with-page page)
(cb/with-objects (:objects page))
(cb/add-object shape))]
(st/emit! (ch/commit-changes changes))
(shape/shape-proxy (:id shape))))
(createText
[_ text]
(let [file-id (:current-file-id @st/state)
@ -147,7 +168,18 @@
file-id (:current-file-id @st/state)
page-id (:current-page-id @st/state)]
(st/emit! (dwm/create-svg-shape id "svg" svg-string (gpt/point 0 0)))
(shape/shape-proxy file-id page-id id)))))
(shape/shape-proxy file-id page-id id))))
(createBoolean [_ bool-type shapes]
(let [ids (into #{} (map #(obj/get % "$id")) shapes)
bool-type (keyword bool-type)]
(if (contains? cts/bool-types bool-type)
(let [id-ret (atom nil)]
(st/emit! (dwb/create-bool bool-type ids {:id-ret id-ret}))
(shape/shape-proxy @id-ret))
(utils/display-not-valid :bool-shape bool-type)))))
(defn create-context
[]