src/frontend/tubo/bg_player/subs.cljs


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

(ns tubo.bg-player.subs
  (:require
   [re-frame.core :as rf]))

(defonce !player (atom nil))

(rf/reg-sub
 :bg-player/ready
 (fn [db _]
   (:bg-player/ready db)))

(rf/reg-sub
 :bg-player/show
 (fn [db _]
   (:bg-player/show db)))

(rf/reg-sub
 :bg-player/loading
 (fn [db _]
   (:bg-player/loading db)))

(rf/reg-sub
 :bg-player
 (fn [_ _]
   !player))