near/airsonic-ui
1
0
Fork 0
mirror of https://github.com/heyarne/airsonic-ui.git synced 2026-05-07 02:33:39 +02:00
Code Issues Projects Releases Wiki Activity

Add currently playing bar

Browse source
This commit is contained in:
Arne Schlüter 2018-04-21 22:46:33 +02:00
commit 19aa7038b3
4 changed files with 70 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/airsonic_ui/views.cljs
View file

@ -63,6 +63,29 @@
[:h2 (str (:artist content) " - " (:name content))]
[song-list (:song content)]])
;; currently playing / coming next / audio controls...
(defn current-song-info [{:keys [item status]}]
[:div
[:b "Currently playing: "]
[:div (:artist item) " - " (:title item)]
[:div (:current-time status) "s / " (:duration item) "s"]])
(defn playback-controls []
[:div
[:button "previous"]
[:button "play / pause"]
[:button "next"]
[:label [:input {:type "checkbox"}] "shuffle"]
[:label [:input {:type "checkbox"}] "repeat"]])
(defn bottom-bar []
[:div
(if-let [currently-playing @(re-frame/subscribe [::subs/currently-playing])]
[current-song-info currently-playing]
[:span "Currently no song selected"])
[playback-controls]])
;; putting everything together
(defn app [route params query]
@ -73,7 +96,8 @@
(case route
::routes/main [album-list content]
::routes/album-view [album-detail content])
[:a {:on-click #(re-frame/dispatch [::events/initialize-db]) :href "#"} "Logout"]]))
[:a {:on-click #(re-frame/dispatch [::events/initialize-db]) :href "#"} "Logout"]
[bottom-bar]]))
(defn main-panel []
(let [[route params query] @(re-frame/subscribe [::subs/current-route])]