minor style fixes

src/renderer/element/impl/renderable.cljs

@@ -23,7 +23,7 @@
           (.setAttributeNS dom-el nil (name k) v)))
       (.appendChild svg dom-el)
       (set! (.-innerHTML dom-el) (if (empty? content) "\u00a0" content))
-      (let [bounds (bounds/from-bbox dom-el)]
+      (let [bounds (bounds/dom-el->bounds dom-el)]
         (.remove dom-el)
         bounds))))
 

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

@@ -60,7 +60,8 @@
 (defmethod hierarchy/help [:transform :scale]
   []
   [:div "Hold " [:span.shortcut-key "Ctrl"] " to lock proportions, "
-   [:span.shortcut-key "⇧"] " to scale in place, " [:span.shortcut-key "Alt"] " to also scale children."])
+   [:span.shortcut-key "⇧"] " to scale in place, "
+   [:span.shortcut-key "Alt"] " to also scale children."])
 
 (m/=> hovered? [:-> App Element boolean? boolean?])
 (defn hovered?

src/renderer/utils/bounds.cljs

@@ -14,8 +14,8 @@
    [number? {:title "right"}]
    [number? {:title "bottom"}]])
 
-(m/=> from-bbox [:-> DomElement [:maybe Bounds]])
-(defn from-bbox
+(m/=> dom-el->bounds [:-> DomElement [:maybe Bounds]])
+(defn dom-el->bounds
   "Experimental way of getting the bounds of unknown or complicated elements
    using the getBBox method.
    https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement/getBBox"

src/renderer/utils/drop.cljs

@@ -60,6 +60,12 @@
                                         :position position}]))
     (.readAsText reader file)))
 
+(def supported-image-types
+  #{"image/jpeg"
+    "image/png"
+    "image/bmp"
+    "image/gif"})
+
 (m/=> files! [:-> Vec2D any? nil?])
 (defn files!
   "https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer/files"
@@ -70,7 +76,7 @@
         (= file-type "image/svg+xml")
         (add-svg! file position)
 
-        (contains? #{"image/jpeg" "image/png" "image/bmp" "image/gif"} file-type)
+        (contains? supported-image-types file-type)
         (add-image! file position)
 
         :else

src/renderer/utils/error.cljs

@@ -35,10 +35,12 @@
         [:p "Please consider submitting an error report to improve your experience."]
 
         [:button.button.px-2.rounded.w-full.mb-5.border.border-default.hover:bg-transparent
-         {:on-click #(rf/dispatch [::window.e/open-remote-url (submit-error-url error-message)])}
+         {:on-click #(rf/dispatch [::window.e/open-remote-url
+                                   (submit-error-url error-message)])}
          "Submit an error report"]
 
-        [:p "You can try to undo your last action in order to recover to a previous working state."]
+        [:p "You can try to undo your last action in order to recover to a
+             previous working state."]
 
         [:button.button.px-2.rounded.w-full.mb-5.overlay
          {:on-click #(do (rf/dispatch [::history.e/undo])
@@ -51,8 +53,10 @@
          {:on-click #(rf/dispatch [::window.e/relaunch])}
          "Restart the application"]
 
-        [:p "If you keep getting the same error after restarting, try clearing your session and options data and restart.
-             Please note that by doing so, you will loose any unsaved changes and your local application settings."]
+        [:p "If you keep getting the same error after restarting,
+             try clearing your session and options data and restart.
+             Please note that by doing so, you will loose any unsaved changes
+             and your local application settings."]
 
         [:button.button.px-2.rounded.w-full.bg-warning
          {:on-click #(rf/dispatch [::window.e/clear-local-storage-and-relaunch])}

src/renderer/utils/hiccup.cljs

@@ -25,4 +25,3 @@
       (if (= (:tag (zip/node loc)) :svg)
         (zip/node loc)
         (recur (zip/next loc))))))
-

src/renderer/utils/migrations.cljs

@@ -26,8 +26,7 @@
 
                   :always
                   (-> (update :elements update-keys key->uuid)
-                      (update :elements
-                              update-vals
+                      (update :elements update-vals
                               #(cond-> %
                                  :always
                                  (-> (update :id key->uuid)
@@ -37,18 +36,20 @@
                                  (update :parent key->uuid)))))))]
 
    [[0 4 4] (fn [document]
-              (update document :elements update-vals (fn [el]
-                                                       (update-keys el #(case %
-                                                                          :visible? :visible
-                                                                          :selected? :selected
-                                                                          :locked? :locked
-                                                                          %)))))]
+              (update document :elements update-vals
+                      (fn [el]
+                        (update-keys el #(case %
+                                           :visible? :visible
+                                           :selected? :selected
+                                           :locked? :locked
+                                           %)))))]
 
    [[0 4 5] (fn [document]
-              (update document :elements update-vals (fn [el]
-                                                       (cond-> el
-                                                         (= (:tag el) :brush)
-                                                         (update-in [:attrs :points] #(str/join " " (flatten %)))
-
-                                                         :always
-                                                         element/normalize-attrs))))]])
+              (update document :elements update-vals
+                      (fn [el]
+                        (cond-> el
+                          (= (:tag el) :brush)
+                          (update-in [:attrs :points] #(str/join " " (flatten %)))
+
+                          :always
+                          element/normalize-attrs))))]])