refactor

Author: sprocketc

src/renderer/animations.css

@@ -74,3 +74,21 @@
       transform:rotate(360deg);
   }
 }
+
+@keyframes rotationBreak {
+  0% {
+    transform: rotate(0);
+  }
+  25% {
+    transform: rotate(90deg);
+  }
+  50% {
+    transform: rotate(180deg);
+  }
+  75% {
+    transform: rotate(270deg);
+  }
+  100% {
+    transform: rotate(360deg);
+  }
+}

src/renderer/app/effects.cljs

@@ -134,3 +134,11 @@
  ::scroll-to-bottom
  (fn [el]
    (set! (.-scrollTop el) (.-scrollHeight el))))
+
+(rf/reg-fx
+ ::eye-dropper
+ (fn [{:keys [on-success on-error]}]
+   (-> (js/EyeDropper.)
+       (.open)
+       (.then (fn [color] (when on-success (rf/dispatch (conj on-success color)))))
+       (.catch (fn [error] (when on-error (rf/dispatch (conj on-error error))))))))

src/renderer/app/views.cljs

@@ -9,7 +9,6 @@
    [re-frame.core :as rf]
    [renderer.app.events :as e]
    [renderer.app.subs :as-alias app.s]
-   [renderer.codemirror.views :as cm.v]
    [renderer.dialog.events :as-alias dialog.e]
    [renderer.dialog.views :as dialog.v]
    [renderer.document.events :as-alias document.e]
@@ -145,7 +144,7 @@
            [:div.h-full.bg-primary.flex
             [ui/scroll-area
              [:div.p-1
-              [cm.v/editor xml
+              [ui/cm-editor xml
                {:options {:mode "text/xml"
                           :readOnly true}}]]]]]]))]]])
 
@@ -205,7 +204,7 @@
          [ui/icon "file"]
          [:button.button-link.text-lg
           {:on-click #(rf/dispatch [::document.e/new])} "New"]
-         [ui/shortcuts [::document.e/new]]
+         [ui/shortcuts @(rf/subscribe [::app.s/event-shortcuts [::document.e/new]])]
 
          [:span "or"]
 
@@ -241,7 +240,7 @@
          [:button.button-link.text-lg
           {:on-click #(rf/dispatch [::document.e/open nil])}
           "Open"]
-         [ui/shortcuts [::document.e/open nil]]]
+         [ui/shortcuts @(rf/subscribe [::app.s/event-shortcuts [::document.e/open nil]])]]
 
         (when (seq recent-documents)
           [:<> [:h2.mb-3.mt-8.text-2xl "Recent"]
@@ -263,7 +262,7 @@
           [:button.button-link.text-lg
            {:on-click #(rf/dispatch [::dialog.e/cmdk])}
            "Command panel"]
-          [ui/shortcuts [::dialog.e/cmdk]]]]
+          [ui/shortcuts @(rf/subscribe [::app.s/event-shortcuts [::dialog.e/cmdk]])]]]
         [:div.flex.items-center.gap-2
          [ui/icon "earth"]
          [:button.button-link.text-lg

src/renderer/attribute/impl/style.cljs

@@ -2,11 +2,11 @@
   (:require
    [re-frame.core :as rf]
    [renderer.attribute.hierarchy :as hierarchy]
-   [renderer.codemirror.views :as cm]
-   [renderer.element.events :as-alias element.e]))
+   [renderer.element.events :as-alias element.e]
+   [renderer.ui :as ui]))
 
 (defmethod hierarchy/form-element [:default :style]
   [_ k v {:keys [disabled]}]
   [:div.w-full.bg-primary.p-1
-   [cm/editor v {:options {:readOnly disabled}
-                 :on-blur #(rf/dispatch [::element.e/set-attr k %])}]])
+   [ui/cm-editor v {:options {:readOnly disabled}
+                    :on-blur #(rf/dispatch [::element.e/set-attr k %])}]])

src/renderer/attribute/views.cljs

@@ -57,7 +57,7 @@
 
 (defn caniusethis
   [{:keys [tag attr]}]
-  (let [data (if attr (bcd/conmpatibility tag attr) (bcd/conmpatibility tag))
+  (let [data (if attr (bcd/compatibility tag attr) (bcd/compatibility tag))
         support-data (:support data)
         property (when attr (attr/property-data attr))
         spec-url (or (:spec_url data) (:href property))
@@ -185,7 +185,7 @@
         [:h2.mb-4.text-lg k]
         (when (get-method hierarchy/description [dispatch-tag k])
           [:p (hierarchy/description dispatch-tag k)])
-        (when (bcd/conmpatibility tag k)
+        (when (bcd/compatibility tag k)
           [:<>
            (when property [property-list property])
            [caniusethis {:tag tag :attr k}]])]