blob: 00dc12ff25b9e9cd94b3ff4ba532fe22e800d9c3 (
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
|
(ns tubo.views.channel
(:require
[re-frame.core :as rf]
[tubo.components.items :as items]
[tubo.components.layout :as layout]
[tubo.events :as events]))
(defn channel
[{{:keys [url]} :query-params}]
(let [{:keys [banner avatar name description subscriber-count
related-streams next-page]} @(rf/subscribe [:channel])
next-page-url (:url next-page)
service-color @(rf/subscribe [:service-color])
scrolled-to-bottom? @(rf/subscribe [:scrolled-to-bottom])]
(when scrolled-to-bottom?
(rf/dispatch [::events/channel-pagination url next-page-url]))
[layout/content-container
(when banner
[:div.flex.justify-center
[:img.min-w-full {:src banner}]])
[:div.flex.items-center.justify-between
[:div.flex.items-center.my-4.mx-2
[layout/uploader-avatar avatar name]
[:div.m-4
[:h1.text-xl name]
(when subscriber-count
[:div.flex.my-2.items-center
[:i.fa-solid.fa-users.text-xs]
[:span.mx-2 (.toLocaleString subscriber-count)]])]]
[layout/primary-button "Enqueue"
#(rf/dispatch [::events/enqueue-related-streams related-streams service-color])
"fa-solid fa-headphones"]]
[:div.my-2
[:p description]]
[items/related-streams related-streams next-page-url]]))
|
