mirror of
https://github.com/penpot/penpot.git
synced 2026-05-28 03:13:40 +00:00
48 lines
1.6 KiB
Clojure
48 lines
1.6 KiB
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) 2016 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns uxbox.main.ui.shapes.path
|
|
(:require [uxbox.util.mixins :as mx :include-macros true]
|
|
[uxbox.main.ui.shapes.common :as common]
|
|
[uxbox.main.ui.shapes.attrs :as attrs]
|
|
[uxbox.main.geom :as geom]))
|
|
|
|
;; --- Path Component
|
|
|
|
(declare path-shape)
|
|
|
|
(mx/defc path-component
|
|
{:mixins [mx/static mx/reactive]}
|
|
[{:keys [id] :as shape}]
|
|
(let [selected (mx/react common/selected-ref)
|
|
selected? (contains? selected id)
|
|
on-mouse-down #(common/on-mouse-down % shape selected)]
|
|
[:g.shape {:class (when selected? "selected")
|
|
:on-mouse-down on-mouse-down}
|
|
(path-shape shape identity)]))
|
|
|
|
;; --- Path Shape
|
|
|
|
(defn- render-path
|
|
[{:keys [points close?] :as shape}]
|
|
{:pre [(pos? (count points))]}
|
|
(let [start (first points)
|
|
init (str "M " (:x start) " " (:y start))
|
|
path (reduce #(str %1 " L" (:x %2) " " (:y %2)) init points)]
|
|
(cond-> path
|
|
close? (str " Z"))))
|
|
|
|
(mx/defc path-shape
|
|
{:mixins [mx/static]}
|
|
[{:keys [id drawing?] :as shape}]
|
|
(let [key (str "shape-" id)
|
|
rfm (geom/transformation-matrix shape)
|
|
attrs (-> (attrs/extract-style-attrs shape)
|
|
(merge {:id key :key key :d (render-path shape)})
|
|
(merge (when-not drawing?
|
|
{:transform (str rfm)})))]
|
|
[:path attrs]))
|