mirror of
https://github.com/penpot/penpot.git
synced 2026-10-30 14:30:37 +00:00
32 lines
993 B
Clojure
32 lines
993 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 SUBSIDIARY SL
|
|
|
|
(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
|
|
[shapes]
|
|
(cond
|
|
(not (every? shape/shape-proxy? shapes))
|
|
(u/not-valid nil :centerShapes shapes)
|
|
|
|
;; The documented contract returns null for an empty array; without this
|
|
;; guard `shapes->rect` yields a non-rect and `rect->center` asserts.
|
|
(empty? shapes)
|
|
nil
|
|
|
|
:else
|
|
(let [shapes (->> shapes (map u/proxy->shape))]
|
|
(-> (gsh/shapes->rect shapes)
|
|
(grc/rect->center)
|
|
(format/format-point)))))
|