mirror of
https://github.com/penpot/penpot.git
synced 2026-05-28 03:13:40 +00:00
26 lines
849 B
Clojure
26 lines
849 B
Clojure
(ns uxbox.ui.shapes.rect
|
|
(:require [sablono.core :refer-macros [html]]
|
|
[cuerdas.core :as str]
|
|
[rum.core :as rum]
|
|
[lentes.core :as l]
|
|
[uxbox.rstore :as rs]
|
|
[uxbox.state :as st]
|
|
[uxbox.data.workspace :as dw]
|
|
[uxbox.ui.core :as uuc]
|
|
[uxbox.ui.keyboard :as kbd]
|
|
[uxbox.ui.shapes.core :as uusc]
|
|
[uxbox.util.geom :as geom]
|
|
[uxbox.util.dom :as dom]))
|
|
|
|
(defmethod uusc/render-shape :builtin/rect
|
|
[{:keys [id x1 y1 x2 y2] :as shape}]
|
|
(let [key (str id)
|
|
rfm (geom/transformation-matrix shape)
|
|
size (geom/size shape)
|
|
props {:x x1 :y y1 :id key :key key :transform (str rfm)}
|
|
attrs (-> (uusc/extract-style-attrs shape)
|
|
(merge props size))]
|
|
(html
|
|
[:rect attrs])))
|
|
|