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

Move navigation to effect

Browse source
This commit is contained in:
Arne Schlüter 2018-04-18 16:21:21 +02:00
commit 6117b921a6
6 changed files with 63 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/airsonic_ui/views.cljs
View file

@ -21,16 +21,16 @@
[:div
[:button {:on-click #(re-frame/dispatch [::events/authenticate @user @pass])} "Submit"]]])))
(defn app [current-page]
(defn app [route]
(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 []
(let [current-page @(re-frame/subscribe [::subs/current-page])]
(let [[route params query] @(re-frame/subscribe [::subs/current-route])]
[:div
[:h1 "Airsonic"]
(case current-page
(case route
::routes/login [login-form]
[app current-page])]))
[app route])]))