fix minor a11y issues

Author: sprocketc

src/renderer/attribute/impl/style.cljs

@@ -10,5 +10,6 @@
   [_ k v {:keys [disabled]}]
   [:div.w-full.bg-primary.p-1
    [ui/cm-editor v {:on-blur #(rf/dispatch [::element.e/set-attr k %])
+                    :attrs {:id (name k)}
                     :options {:mode "css"
                               :readOnly disabled}}]])

src/renderer/timeline/views.cljs

@@ -33,12 +33,15 @@
   [editor-ref]
   (let [speed @(rf/subscribe [::timeline.s/speed])]
     [:div.inline-flex.items-center
-     [:label.form-element "Speed"]
+     [:label.form-element
+      {:for "animation-speed"}
+      "Speed"]
      [:> Select/Root
       {:value speed
        :onValueChange #(.setPlayRate (.-current editor-ref) %)}
       [:> Select/Trigger
        {:class "button px-2 overlay rounded-sm"
+        :id "animation-speed"
         :aria-label "No a11y filter"}
        [:> Select/Value {:placeholder "Filter"}
         [:div.flex.gap-1.justify-between.items-center

src/renderer/ui.cljs

@@ -210,7 +210,7 @@
           (str (+ 4 off) "px"))))
 
 (defn cm-editor
-  [value {:keys [style options on-init on-blur]}]
+  [value {:keys [attrs options on-init on-blur]}]
   (let [cm (ra/atom nil)
         ref (react/createRef)]
     (ra/create-class
@@ -237,9 +237,7 @@
 
       :reagent-render
       (fn [value]
-        [:textarea {:value value
-                    :style style
-                    :on-blur #()
-                    :on-change #()
-                    :ref ref
-                    :aria-label "Command prompt"}])})))
+        [:textarea (merge {:value value
+                           :on-blur #()
+                           :on-change #()
+                           :ref ref} attrs)])})))