blob: 48f18e43889fb38c9921d41541dc27ebf6ee18cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
(ns tau.views.playlist
(:require
[re-frame.core :as rf]
[reitit.frontend.easy :as rfe]
[tau.components.items :as items]
[tau.components.loading :as loading]
[tau.components.navigation :as navigation]
[tau.events :as events]))
(defn playlist
[{{:keys [url]} :query-params}]
(let [{:keys [id name playlist-type thumbnail-url banner-url
uploader-name uploader-url uploader-avatar stream-count
next-page related-streams]} @(rf/subscribe [:playlist])
next-page-url (:url next-page)
service-color @(rf/subscribe [:service-color])
page-loading? @(rf/subscribe [:show-page-loading])
pagination-loading? @(rf/subscribe [:show-pagination-loading])
page-scroll @(rf/subscribe [:page-scroll])
scrolled-to-bottom? (= page-scroll (.-scrollHeight js/document.body))]
(when scrolled-to-bottom?
(rf/dispatch [::events/playlist-pagination url next-page-url]))
[:div.flex.flex-col.items-center.px-5.pt-4.flex-auto
(if page-loading?
[loading/page-loading-icon service-color]
[:div.flex.flex-col.flex-auto
[navigation/back-button service-color]
(when banner-url
[:div
[:img {:src banner-url}]])
[:div.flex.items-center.justify-center.my-4.mx-2
[:div.flex.flex-col.justify-center.items-center
[:h1.text-2xl.font-bold name]
[:div.flex.items-center.pt-4
[:span.mr-2 "By"]
[:div.flex.items-center.py-3.box-border.h-12
[:div.w-12
[:a {:href (rfe/href :tau.routes/channel nil {:url uploader-url}) :title uploader-name}
[:img.rounded-full.object-cover.min-h-full.min-w-full {:src uploader-avatar :alt uploader-name}]]]]]
[:p.pt-4 (str stream-count " streams")]]]
(if (empty? related-streams)
[:div.flex.flex-auto.justify-center.items-center
[:p.text-2xl "No streams available"]]
[:div.flex.justify-center.align-center.flex-wrap.my-2
(for [[i result] (map-indexed vector related-streams)]
[items/stream-item (assoc result :key i)])
(when-not (empty? next-page-url)
[loading/items-pagination-loading-icon service-color pagination-loading?])])])]))
|
