lint fixes

Author: briansztamfater

Diff for: src/status_im2/contexts/chat/messages/content/audio/view.cljs

@@ -53,7 +53,7 @@
       (.catch #(log/error "could not fetch audio " base64-uri))))
 
 (defn- create-player
-  [{:keys [progress-ref player-state player-key] :as params} audio-url on-success]
+  [{:keys [progress-ref player-state player-key]} audio-url on-success]
   (download-audio-http
    audio-url
    (fn [base64-data]
@@ -75,57 +75,58 @@
   (update-state player-state :preparing))
 
 (defn- play-pause-player
-  [{:keys [player-key player-state progress-ref message-id audio-duration-ms seeking-audio? user-interaction?] :as params}]
+  [{:keys [player-key player-state progress-ref message-id audio-duration-ms seeking-audio?
+           user-interaction?]
+    :as   params}]
   (let [mediaserver-port (rf/sub [:mediaserver/port])
         audio-uri        (str media-server-uri-prefix
                               mediaserver-port
                               audio-path
                               uri-param
-                              message-id)]
-    (let [player   (@active-players player-key)
-          playing? (= @player-state :playing)]
-      (when-not playing?
-        (reset! current-player-key player-key))
-      (if player
-        (do
-          (audio/toggle-playpause-player
-           player
-           (fn []
-             (update-state player-state :playing)
-             (when @progress-timer
-               (js/clearInterval @progress-timer))
-             (reset! progress-timer
-                     (js/setInterval
-                      (fn []
-                        (let [player       (@active-players player-key)
-                              current-time (audio/get-player-current-time player)
-                              playing?     (= @player-state :playing)]
-                          (when (and playing? (not @seeking-audio?) (> current-time 0))
-                            (reset! progress-ref current-time))))
-                      100)))
-           (fn []
-             (update-state player-state :ready-to-play)
-             (when (and @progress-timer user-interaction?)
-               (js/clearInterval @progress-timer)
-               (reset! progress-timer nil)))
-           #(update-state player-state :error)))
-        (do
-          (destroy-player player-key)
-          (create-player params
-                         audio-uri
-                         (fn []
-                           (let [player (@active-players player-key)]
-                             (reset! seeking-audio? false)
-                             (if (> @progress-ref 0)
-                               (let [seek-time         (* audio-duration-ms @progress-ref)
-                                     checked-seek-time (min audio-duration-ms seek-time)]
-                                 (seek-player
-                                  player-key
-                                  player-state
-                                  checked-seek-time
-                                  #(play-pause-player params)))
-                               (play-pause-player params)))))))
-      (swap! audio-uris assoc player-key audio-uri))))
+                              message-id)
+        player           (@active-players player-key)
+        playing?         (= @player-state :playing)]
+    (when-not playing?
+      (reset! current-player-key player-key))
+    (if (and player
+             (= (@audio-uris player-key) audio-uri))
+      (audio/toggle-playpause-player
+       player
+       (fn []
+         (update-state player-state :playing)
+         (when @progress-timer
+           (js/clearInterval @progress-timer))
+         (reset! progress-timer
+           (js/setInterval
+            (fn []
+              (let [player       (@active-players player-key)
+                    current-time (audio/get-player-current-time player)
+                    playing?     (= @player-state :playing)]
+                (when (and playing? (not @seeking-audio?) (> current-time 0))
+                  (reset! progress-ref current-time))))
+            100)))
+       (fn []
+         (update-state player-state :ready-to-play)
+         (when (and @progress-timer user-interaction?)
+           (js/clearInterval @progress-timer)
+           (reset! progress-timer nil)))
+       #(update-state player-state :error))
+      (do
+        (destroy-player player-key)
+        (create-player params
+                       audio-uri
+                       (fn []
+                         (reset! seeking-audio? false)
+                         (if (> @progress-ref 0)
+                           (let [seek-time         (* audio-duration-ms @progress-ref)
+                                 checked-seek-time (min audio-duration-ms seek-time)]
+                             (seek-player
+                              player-key
+                              player-state
+                              checked-seek-time
+                              #(play-pause-player params)))
+                           (play-pause-player params))))))
+    (swap! audio-uris assoc player-key audio-uri)))
 
 (defn audio-message
   [{:keys [audio-duration-ms message-id]}