;; 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 Sucursal en España 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)))))