add error handling to workers

Author: sprocketc

src/renderer/attribute/views.cljs

@@ -156,7 +156,9 @@
     [:<>
      [:h3.font-bold (if (= k :appliesto)
                       "Applies to"
-                      (-> k csk/->kebab-case-string (str/replace "-" " ") str/capitalize))]
+                      (-> (csk/->kebab-case-string k)
+                          (str/replace "-" " ")
+                          (str/capitalize)))]
      [:p (cond->> v (vector? v) (str/join " | "))]]))
 
 (defn property-list

src/renderer/worker/effects.cljs

@@ -5,12 +5,15 @@
 
 (rf/reg-fx
  ::post
- (fn [{:keys [data on-success]}]
-   (let [worker (js/Worker. "js/worker.js")]
+ (fn [{:keys [data on-success on-error]}]
+   (let [worker (js/Worker. "js/worker.js")
+         id (uuid (:id data))]
      (.addEventListener
       worker
       "message"
-      #(let [response-data (js->clj (.. % -data) :keywordize-keys true)
-             id (uuid (:id response-data))]
-         (rf/dispatch [::worker.e/completed id on-success response-data])))
+      #(let [response-data (js->clj (.. % -data) :keywordize-keys true)]
+         (rf/dispatch [::worker.e/message id on-success response-data])))
+
+     (.addEventListener worker "error" #(rf/dispatch [::worker.e/message id on-error %]))
+
      (.postMessage worker (clj->js data)))))

src/renderer/worker/events.cljs

@@ -14,7 +14,8 @@
                   (assoc-in [:data :action] (:action options)))}))
 
 (rf/reg-event-fx
- ::completed
- (fn [{:keys [db]} [_ id on-success response-data]]
-   {:db (update-in db [:worker :tasks] dissoc id)
-    :dispatch (conj on-success response-data)}))
+ ::message
+ (fn [{:keys [db]} [_ id event response-data]]
+   (cond-> {:db (update-in db [:worker :tasks] dissoc id)}
+     event
+     (assoc :dispatch (conj event response-data)))))