[wip] transform attr

Author: sprocketc

src/renderer/attribute/core.cljs

@@ -9,4 +9,5 @@
    [renderer.attribute.range]
    [renderer.attribute.stroke-linecap]
    [renderer.attribute.stroke-linejoin]
-   [renderer.attribute.style]))
+   [renderer.attribute.style]
+   [renderer.attribute.transform]))

src/renderer/attribute/transform.cljs

@@ -0,0 +1,10 @@
+(ns renderer.attribute.transform
+  "https://developer.mozilla.org/en-US/docs/Web/SVG/Attribute/transform"
+  (:require
+   [renderer.attribute.hierarchy :as hierarchy]
+   [renderer.element.events :as-alias element.e]))
+
+(defmethod hierarchy/description :transform
+  []
+  "The transform attribute defines a list of transform definitions that are
+   applied to an element and the element's children.")

src/renderer/tool/container/group.cljs

@@ -17,9 +17,18 @@
                  SVG elements."
    :attrs [:transform]})
 
+(defn- translate
+  [transform [x y]]
+  (let [g (js/document.createElementNS "http://www.w3.org/2000/svg" "g")
+        _ (.setAttributeNS g nil "transform" (or transform ""))
+        m (.consolidate (.. g -transform -baseVal))
+        matrix (if m (.-matrix m) (js/DOMMatrixReadOnly.))
+        matrix (.translate matrix x y)]
+    (.toString matrix)))
+
 (defmethod tool/translate :g
-  [el [_x _y]]
-  el) ; TODO
+  [el offset]
+  (update-in el [:attrs :transform] translate offset))
 
 (defmethod tool/render :g
   [{:keys [attrs children bounds] :as element}]