fix

baskeboler · Oct 26, 2023 · fd5d616 · fd5d616
1 parent 669b3e4
commit fd5d616
Showing 1 changed file with 29 additions and 28 deletions.
diff --git a/src/main/cljs_karaoke/audio.cljs b/src/main/cljs_karaoke/audio.cljs
@@ -17,34 +17,35 @@
 
 (defn setup-audio-listeners [audio]
   (let [out-chan (chan)]
-    (.. audio
-        (addEventListener
-         "canplay"
-         (fn [evt] (go (>! out-chan (canplay evt))))))
-    (.. audio
-        (addEventListener
-         "canplaythrough"
-         (fn [evt] (go (>! out-chan (canplaythrough evt))))))
-    (.. audio
-        (addEventListener
-         "ended"
-         (fn [evt] (go (>! out-chan (ended evt))))))
-    (.. audio
-        (addEventListener
-         "play"
-         (fn [evt] (go (>! out-chan (play evt))))))
-    (.. audio
-        (addEventListener
-         "pause"
-         (fn [evt] (go (>! out-chan (pause evt))))))
-    (.. audio
-        (addEventListener
-         "timeupdate"
-         (fn [evt] (go (>! out-chan (timeupdate evt))))))
-    (.. audio
-        (addEventListener
-         "playing"
-         (fn [evt] (go (>! out-chan (playing evt))))))
+    (when audio
+      (.. audio
+          (addEventListener
+           "canplay"
+           (fn [evt] (go (>! out-chan (canplay evt))))))
+      (.. audio
+          (addEventListener
+           "canplaythrough"
+           (fn [evt] (go (>! out-chan (canplaythrough evt))))))
+      (.. audio
+          (addEventListener
+           "ended"
+           (fn [evt] (go (>! out-chan (ended evt))))))
+      (.. audio
+          (addEventListener
+           "play"
+           (fn [evt] (go (>! out-chan (play evt))))))
+      (.. audio
+          (addEventListener
+           "pause"
+           (fn [evt] (go (>! out-chan (pause evt))))))
+      (.. audio
+          (addEventListener
+           "timeupdate"
+           (fn [evt] (go (>! out-chan (timeupdate evt))))))
+      (.. audio
+          (addEventListener
+           "playing"
+           (fn [evt] (go (>! out-chan (playing evt)))))))
     out-chan))