feat(frontend): refine and modularize audio player styles

2 files changed, 95 insertions, 88 deletions

diff --git a/src/frontend/tubo/components/audio_player.cljs b/src/frontend/tubo/components/audio_player.cljs
index 50cf704..f688e50 100644
--- a/src/frontend/tubo/components/audio_player.cljs
+++ b/src/frontend/tubo/components/audio_player.cljs
@@ -11,7 +11,7 @@
    [tubo.util :as util]))
 
 (defn audio-source
-  []
+  [!player]
   (let [{:keys [stream]} @(rf/subscribe [:media-queue-stream])]
     (r/create-class
      {:display-name "AudioPlayer"
@@ -20,9 +20,8 @@
         (when stream
           (set! (.-src (rdom/dom-node this)) stream)))
       :reagent-render
-      (fn []
-        (let [!player       @(rf/subscribe [:player])
-              !elapsed-time @(rf/subscribe [:elapsed-time])
+      (fn [!player]
+        (let [!elapsed-time @(rf/subscribe [:elapsed-time])
               player-ready? (and @!player (> (.-readyState @!player) 0))
               muted?        @(rf/subscribe [:muted])
               volume-level  @(rf/subscribe [:volume-level])
@@ -30,46 +29,93 @@
           [:audio
            {:ref            #(reset! !player %)
             :loop           (= loop-playback :stream)
-            :on-loaded-data #(do (when (.-paused @!player)
-                                   (.play @!player))
-                                 (when (= (.-currentTime @!player) 0)
-                                   (set! (.-currentTime @!player) @!elapsed-time))
-                                 (set! (.-volume @!player) (/ volume-level 100)))
+            :on-loaded-data #(rf/dispatch [::events/player-start])
             :muted          muted?
-            :on-time-update #(when player-ready?
-                               (reset! !elapsed-time (.-currentTime @!player)))}]))})))
+            :on-time-update #(reset! !elapsed-time (.-currentTime @!player))}]))})))
+
+(defn main-controls
+  [service-color]
+  (let [media-queue     @(rf/subscribe [:media-queue])
+        media-queue-pos @(rf/subscribe [:media-queue-pos])
+        loading?        @(rf/subscribe [:show-audio-player-loading])
+        !elapsed-time   @(rf/subscribe [:elapsed-time])
+        !player         @(rf/subscribe [:player])
+        paused?         @(rf/subscribe [:paused])
+        player-ready?   (and @!player (> (.-readyState @!player) 0))
+        loop-playback   @(rf/subscribe [:loop-playback])]
+    [:div.flex.flex-col.items-center.ml-auto
+     [:div.flex.justify-end
+      [player/button
+       [:div.relative.flex.items-center
+        [:i.fa-solid.fa-repeat
+         {:style {:color (when loop-playback service-color)}}]
+        (when (= loop-playback :stream)
+          [:span.absolute.font-bold
+           {:style {:color     (when loop-playback service-color)
+                    :font-size "6px"
+                    :right     "6px"
+                    :top       "6.5px"}}
+           "1"])]
+       #(rf/dispatch [::events/toggle-loop-playback])
+       :extra-styles "text-sm"]
+      [player/button
+       [:i.fa-solid.fa-backward-step]
+       #(when (and media-queue (not= media-queue-pos 0))
+          (rf/dispatch [::events/change-media-queue-pos (- media-queue-pos 1)]))
+       :disabled? (not (and media-queue (not= media-queue-pos 0)))]
+      [player/button [:i.fa-solid.fa-backward]
+       #(rf/dispatch [::events/set-player-time (- @!elapsed-time 5)])]
+      [player/button
+       (if @!player
+         (if loading?
+           [loading/loading-icon service-color "text-2xl"]
+           (if paused?
+             [:i.fa-solid.fa-play
+              {:on-click #(rf/dispatch [::events/player-paused false])}]
+             [:i.fa-solid.fa-pause
+              {:on-click #(rf/dispatch [::events/player-paused true])}]))
+         [:i.fa-solid.fa-play
+          {:on-click #(rf/dispatch [::events/player-paused true])}])
+       nil
+       :show-on-mobile? true
+       :extra-styles "lg:text-2xl"]
+      [player/button [:i.fa-solid.fa-forward]
+       #(rf/dispatch [::events/set-player-time (+ @!elapsed-time 5)])]
+      [player/button [:i.fa-solid.fa-forward-step]
+       #(when (and media-queue (< (+ media-queue-pos 1) (count media-queue)))
+          (rf/dispatch [::events/change-media-queue-pos (+ media-queue-pos 1)]))
+       :disabled? (not (and media-queue (< (+ media-queue-pos 1) (count media-queue))))]]
+     [:div.hidden.lg:flex.items-center
+      [:span.mx-2.text-sm
+       (if @!elapsed-time (util/format-duration @!elapsed-time) "00:00")]
+      [:div.w-20.lg:w-64.mx-2.flex.items-center
+       [player/time-slider !player !elapsed-time service-color]]
+      [:span.mx-2.text-sm
+       (if player-ready? (util/format-duration (.-duration @!player)) "00:00")]]]))
 
 (defn player
   []
-  (let [media-queue                @(rf/subscribe [:media-queue])
-        media-queue-pos            @(rf/subscribe [:media-queue-pos])
-        {:keys
+  (let [{:keys
          [uploader-name uploader-url thumbnail-url
           name stream url service-color] :as current-stream}
         @(rf/subscribe [:media-queue-stream])
         show-audio-player?         @(rf/subscribe [:show-audio-player])
-        show-audio-player-loading? @(rf/subscribe [:show-audio-player-loading])
         show-media-queue?          @(rf/subscribe [:show-media-queue])
-        loop-playback              @(rf/subscribe [:loop-playback])
         volume-level               @(rf/subscribe [:volume-level])
         muted?                     @(rf/subscribe [:muted])
-        !elapsed-time              @(rf/subscribe [:elapsed-time])
         !player                    @(rf/subscribe [:player])
         {:keys [current-theme]}    @(rf/subscribe [:settings])
-        player-ready?              (and @!player (> (.-readyState @!player) 0))]
+        bg-color (str "rgba(" (if (= current-theme "dark") "23, 23, 23" "255, 255, 255") ", 0.95)")]
     (when show-audio-player?
-      [:div.sticky.bottom-0.z-40.p-3.sm:p-5.absolute.box-border.m-0
+      [:div.sticky.bottom-0.z-40.p-3.absolute.box-border.m-0
        {:style
         {:display            (when show-media-queue? "none")
-         :background-image   (str (if (= current-theme "dark")
-                                    "linear-gradient(0deg, rgba(23, 23, 23, 0.95), rgba(23, 23, 23, 0.95)), url(\""
-                                    "linear-gradient(0deg, rgba(255, 255, 255, 0.95), rgba(255, 255, 255, 0.95)), url(\"")
-                                  thumbnail-url "\")")
+         :background-image   (str "linear-gradient(0deg, " bg-color "," bg-color "), url(\"" thumbnail-url "\")")
          :backgroundSize     "cover"
          :backgroundPosition "center"
          :backgroundRepeat   "no-repeat"}}
        [:div.flex.items-center.justify-between
-        [:div.flex.items-center
+        [:div.flex.items-center.lg:flex-1
          [:div {:style {:height "40px" :width "70px" :maxWidth "70px" :minWidth "70px"}}
           [:img.min-h-full.max-h-full.object-cover.min-w-full.max-w-full.w-full {:src thumbnail-url}]]
          [:div.flex.flex-col.px-2
@@ -77,61 +123,11 @@
            {:href (rfe/href :tubo.routes/stream nil {:url url})} name]
           [:a.text-xs.pt-2.text-neutral-600.dark:text-neutral-300.line-clamp-1
            {:href (rfe/href :tubo.routes/channel nil {:url uploader-url})} uploader-name]]
-         [audio-source]]
-        [:div.flex
+         [audio-source !player]]
+        [main-controls service-color]
+        [:div.flex.lg:justify-end.lg:flex-1
+         [player/volume-slider !player volume-level muted? service-color]
          [player/button [:i.fa-solid.fa-list] #(rf/dispatch [::events/toggle-media-queue])
           :show-on-mobile? true]
-         [player/button
-          [:i.fa-solid.fa-backward-step]
-          #(when (and media-queue (not= media-queue-pos 0))
-             (rf/dispatch [::events/change-media-queue-pos
-                           (- media-queue-pos 1)]))
-          :disabled? (not (and media-queue (not= media-queue-pos 0)))]
-         [player/button [:i.fa-solid.fa-backward] #(set! (.-currentTime @!player) (- @!elapsed-time 5))]
-         [player/button
-          (if @!player
-            (if show-audio-player-loading?
-              [loading/loading-icon service-color "text-1xl"]
-              (if (.-paused @!player)
-                [:i.fa-solid.fa-play]
-                [:i.fa-solid.fa-pause]))
-            [:i.fa-solid.fa-play])
-          #(if (.-paused @!player)
-             (.play @!player)
-             (.pause @!player))
-          :show-on-mobile? true]
-         [player/button [:i.fa-solid.fa-forward] #(set! (.-currentTime @!player) (+ @!elapsed-time 5))]
-         [player/button [:i.fa-solid.fa-forward-step]
-          #(when (and media-queue (< (+ media-queue-pos 1) (count media-queue)))
-             (rf/dispatch [::events/change-media-queue-pos
-                           (+ media-queue-pos 1)]))
-          :disabled? (not (and media-queue (< (+ media-queue-pos 1) (count media-queue))))]
-         [:div.hidden.lg:flex.items-center
-          [:span.mx-2 (if @!elapsed-time (util/format-duration @!elapsed-time) "00:00")]
-          [:div.w-20.lg:w-56.mx-2
-           [player/time-slider !player !elapsed-time service-color]]
-          [:span.mx-2
-           (if player-ready? (util/format-duration (.-duration @!player)) "00:00")]
-          [player/button
-           [:div.relative
-            [:i.fa-solid.fa-repeat
-             {:style {:color (when loop-playback service-color)}}]
-            (when (= loop-playback :stream)
-              [:span.absolute.font-bold
-               {:style {:color     (when loop-playback service-color)
-                        :font-size "6px"
-                        :right     "6px"
-                        :top       "6.5px"}}
-               "1"])]
-           #(rf/dispatch [::events/toggle-loop-playback])]
-          [:div.hidden.lg:flex.items-center
-           [player/button
-            (if (or (and @!player muted?)) [:i.fa-solid.fa-volume-xmark] [:i.fa-solid.fa-volume-low])
-            #(rf/dispatch [::events/toggle-mute @!player])]
-           [player/volume-slider !player volume-level service-color]]]
-         [player/button [:i.fa-solid.fa-close]
-          (fn []
-            (rf/dispatch [::events/toggle-audio-player])
-            (.pause @!player)
-            (set! (.-currentTime @!player) 0))
+         [player/button [:i.fa-solid.fa-close] #(rf/dispatch [::events/dispose-audio-player])
           :show-on-mobile? true]]]])))
diff --git a/src/frontend/tubo/components/player.cljs b/src/frontend/tubo/components/player.cljs
index c851da8..ac721e2 100644
--- a/src/frontend/tubo/components/player.cljs
+++ b/src/frontend/tubo/components/player.cljs
@@ -1,5 +1,6 @@
 (ns tubo.components.player
   (:require
+   [reagent.core :as r]
    [re-frame.core :as rf]
    [tubo.events :as events]))
 
@@ -15,19 +16,29 @@
                  100)
     :value     @elapsed-time}])
 
-(defn volume-slider [player volume-level service-color]
-  [:input.w-20.bg-gray-200.rounded-lg.cursor-pointer.focus:outline-none.range-sm.mx-2
-   {:type     "range"
-    :on-input #(rf/dispatch [::events/change-volume-level (.. % -target -value) @player])
-    :style    {:accentColor service-color}
-    :max      100
-    :value    volume-level}])
-
 (defn button
   [icon on-click-cb & {:keys [disabled? show-on-mobile? extra-styles]}]
-  [:button.outline-none.focus:ring-transparent.mx-2
+  [:button.outline-none.focus:ring-transparent.px-2.pt-1
    {:class    (let [styles (apply conj (when disabled? ["opacity-50" "cursor-auto"])
                                   (when-not show-on-mobile? ["hidden" "lg:block"]))]
                 (apply str (if (> (count extra-styles) 1) (interpose " " (conj styles extra-styles)) (interpose " " styles))))
     :on-click on-click-cb}
    icon])
+
+(defn volume-slider [player volume-level muted? service-color]
+  (let [show-slider? (r/atom nil)]
+    (fn [player volume-level muted? service-color]
+      [:div.relative.flex.items-center
+       {:on-mouse-over #(reset! show-slider? true)
+        :on-mouse-out #(reset! show-slider? false)}
+       [button
+        (if muted? [:i.fa-solid.fa-volume-xmark] [:i.fa-solid.fa-volume-low])
+        #(rf/dispatch [::events/toggle-mute player])]
+       (when @show-slider?
+         [:input.rounded-lg.cursor-pointer.focus:outline-none.absolute
+          {:class    "rotate-[270deg]"
+           :type     "range"
+           :on-input #(rf/dispatch [::events/change-volume-level (.. % -target -value) player])
+           :style    {:accentColor service-color :left "-48px" :bottom "80px" :display (if @show-slider? "block" "none")}
+           :max      100
+           :value    volume-level}])])))