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

Handle events via UI instead of just the REPL

Browse source
This commit is contained in:
Arne Schlüter 2018-04-18 02:03:48 +02:00
commit afe5b4015f
2 changed files with 37 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/airsonic_ui/views.cljs
View file

@ -1,24 +1,29 @@
(ns airsonic-ui.views
(:require [re-frame.core :as re-frame]
[airsonic-ui.config :as config]
[reagent.core :as r]
[airsonic-ui.events :as events]
[airsonic-ui.subs :as subs]))
(defn login-form []
[:form {:method "get"
:action config/server
:on-click #(js/alert "bang bang! TODO: implement login via form")}
[:div
[:span "User"]
[:input {:type "text" :name "user"}]]
[:div
[:span "Password"]
[:input {:type "password" :name "pass"}]]
[:div
[:input {:type "submit" :value "submit"}]]])
(let [user (r/atom "")
pass (r/atom "")]
(fn []
[:div
[:div
[:span "User"]
[:input {:type "text"
:name "user"
:on-change #(reset! user (-> % .-target .-value))}]]
[:div
[:span "Password"]
[:input {:type "password" :name "pass" :on-change #(reset! pass (-> % .-target .-value))}]]
[:div
[:button {:on-click #(re-frame/dispatch [::events/authenticate @user @pass])} "Submit"]]])))
(defn app [user]
[:div
[:h2 (str "Currently logged in as " user)]])
[:h2 (str "Currently logged in as " user)]
[:a {:on-click #(re-frame/dispatch [::events/initialize-db]) :href "#"} "Logout"]])
(defn main-panel []
[:div