refactor

src/renderer/element/subs.cljs

@@ -144,17 +144,17 @@
  (fn [[elements hovered-keys selected-keys] _]
    (vals (select-keys elements (set/union hovered-keys selected-keys)))))
 
-(rf/reg-sub
- :element/colors
- :<- [:element/visible]
- (fn [visible-elements _]
-   (reduce (fn [colors element]
-             (let [color (get-in element [:attrs :fill])]
-               (if (and color (color/isValidColor color))
-                 (conj colors (keyword (:hex (color/parse color))))
-                 colors)))
-           #{}
-           visible-elements)))
+#_(rf/reg-sub
+   :element/colors
+   :<- [:element/visible]
+   (fn [visible-elements _]
+     (reduce (fn [colors element]
+               (let [color (get-in element [:attrs :fill])]
+                 (if (and color (color/isValidColor color))
+                   (conj colors (keyword (:hex (color/parse color))))
+                   colors)))
+             #{}
+             visible-elements)))
 
 (rf/reg-sub
  :snapping-points

src/renderer/events.cljs

@@ -160,7 +160,7 @@
        :wheel
        (if (some (:modifiers e) [:ctrl :alt])
          (let [delta-y (second delta)
-               factor (Math/pow (+ 1 (/ (- 1 (:zoom-sensitivity db)) 100))
+               factor (Math/pow (inc (/ (dec (:zoom-sensitivity db)) 100))
                                 (- delta-y))]
            (frame-h/zoom-in-pointer-position db factor))
          (frame-h/pan db delta))

src/renderer/reepl/core.cljs

@@ -86,7 +86,7 @@
   {:should-go-up
    (fn [_source inst]
      (let [pos (.getCursor inst)]
-       (= 0 (.-line pos))))
+       (zero? (.-line pos))))
 
    :should-go-down
    (fn [_source inst]

src/renderer/reepl/replumb.cljs

@@ -162,8 +162,8 @@ cljs.js/*load-fn*
     (= text a) -1
     (= text b) 1
     :else
-    (let [a-starts (= 0 (.indexOf a text))
-          b-starts (= 0 (.indexOf b text))]
+    (let [a-starts (zero? (.indexOf a text))
+          b-starts (zero? (.indexOf b text))]
       (cond
         (and a-starts b-starts) 0
         a-starts -1
@@ -284,7 +284,7 @@ cljs.js/*load-fn*
            (filter matches? names))))))
 
 (defn process-apropos [text]
-  (if (= 0 (.indexOf text "js/"))
+  (if (zero? (.indexOf text "js/"))
     (js-completion (.slice text 3))
     (cljs-completion text)))