mirror of
https://github.com/penpot/penpot.git
synced 2026-05-05 16:18:35 +00:00
27 lines
819 B
Clojure
27 lines
819 B
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.plugins.public-utils
|
|
"Utilities that will be exposed to plugins developers"
|
|
(:require
|
|
[app.common.geom.rect :as grc]
|
|
[app.common.geom.shapes :as gsh]
|
|
[app.plugins.format :as format]
|
|
[app.plugins.shape :as shape]
|
|
[app.plugins.utils :as u]))
|
|
|
|
(defn ^:export centerShapes
|
|
[plugin-id shapes]
|
|
(cond
|
|
(not (every? shape/shape-proxy? shapes))
|
|
(u/not-valid plugin-id :centerShapes shapes)
|
|
|
|
:else
|
|
(let [shapes (->> shapes (map u/proxy->shape))]
|
|
(-> (gsh/shapes->rect shapes)
|
|
(grc/rect->center)
|
|
(format/format-point)))))
|