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

Add router

Browse source
This commit is contained in:
Arne Schlüter 2018-04-18 08:52:12 +02:00
commit 28d0c134d5
7 changed files with 79 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/airsonic_ui/views.cljs
View file

@ -1,6 +1,7 @@
(ns airsonic-ui.views
(:require [re-frame.core :as re-frame]
[reagent.core :as r]
[airsonic-ui.routes :as routes]
[airsonic-ui.events :as events]
[airsonic-ui.subs :as subs]))
@ -20,14 +21,16 @@
[:div
[:button {:on-click #(re-frame/dispatch [::events/authenticate @user @pass])} "Submit"]]])))
(defn app [user]
[:div
[:h2 (str "Currently logged in as " user)]
[:a {:on-click #(re-frame/dispatch [::events/initialize-db]) :href "#"} "Logout"]])
(defn app [current-page]
(let [login @(re-frame/subscribe [::subs/login])]
[:div
[:h2 (str "Currently logged in as " (:u login))]
[:a {:on-click #(re-frame/dispatch [::events/initialize-db]) :href "#"} "Logout"]]))
(defn main-panel []
[:div
[:h1 "Airsonic"]
(if-let [login @(re-frame/subscribe [::subs/login])]
[app (:u login)]
[login-form])])
(let [current-page @(re-frame/subscribe [::subs/current-page])]
[:div
[:h1 "Airsonic"]
(case current-page
::routes/login [login-form]
[app current-page])]))