blob: ccc53ebd972c4c05af582d5ae106491b58a72091 (
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
|
(ns tau.views.stream
(:require
[re-frame.core :as rf]))
(defn stream
[m]
(let [current-stream @(rf/subscribe [:stream])
stream-type (-> (if (empty? (:video-streams current-stream))
(:audio-streams current-stream)
(:video-streams current-stream))
last
:content)]
[:div.flex.flex-col.justify-center.p-5.items-center
[:div.flex.justify-center.py-2
[:div.flex.justify-center {:class "w-4/5"}
[:video.min-w-full.h-auto {:src stream-type :controls true}]]]
[:div.flex.text-white
[:button.border.rounded.border-slate-900.p-2.bg-slate-800
{:on-click #(rf/dispatch [:switch-to-global-player current-stream])}
"Add to global stream"]
[:a {:href (:url current-stream)}
"Open original source"]]
[:div.flex.flex-col.items-center.py-2 {:class "w-4/5"}
[:div.min-w-full.py-2
[:h1.text-xl.font-extrabold (:name current-stream)]]
[:div.min-w-full.py-2
[:p (:description current-stream)]]]]))
|
