enhance readability of debug overlay

Author: sprocketc

src/renderer/tool/impl/transform/edit.cljs

@@ -30,10 +30,10 @@
       (app.h/set-cursor "default")))
 
 (defmethod hierarchy/pointer-down :edit
-  [db {:keys [element]}]
+  [db e]
   (cond-> db
-    element
-    (assoc :clicked-element element)))
+    (:element e)
+    (assoc :clicked-element (:element e))))
 
 (defmethod hierarchy/pointer-up :edit
   [db e]

src/renderer/utils/overlay.cljs

@@ -182,15 +182,15 @@
 
 (defn coll->str
   [coll]
-  (str (mapv #(.toFixed % 2) coll)))
+  (str "[" (apply str (map #(.toFixed % 2) coll)) "]"))
 
 (defn debug-rows
   []
   [["Dom rect" @(rf/subscribe [::app.s/dom-rect])]
    ["Viewbox" (coll->str @(rf/subscribe [::frame.s/viewbox]))]
-   ["Pointer position" (str @(rf/subscribe [::app.s/pointer-pos]))]
+   ["Pointer position" (coll->str @(rf/subscribe [::app.s/pointer-pos]))]
    ["Adjusted pointer position" (coll->str @(rf/subscribe [::app.s/adjusted-pointer-pos]))]
-   ["Pointer offset" (str @(rf/subscribe [::app.s/pointer-offset]))]
+   ["Pointer offset" (coll->str @(rf/subscribe [::app.s/pointer-offset]))]
    ["Adjusted pointer offset" (coll->str @(rf/subscribe [::app.s/adjusted-pointer-offset]))]
    ["Pointer drag?" (str @(rf/subscribe [::app.s/drag]))]
    ["Pan" (coll->str @(rf/subscribe [::document.s/pan]))]