From c4ddb9e52978307692006517545a6e655fbc6f70 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 24 Feb 2016 17:25:48 +0200
Subject: [PATCH] Add login component.

---
 src/uxbox/ui/auth.cljs | 52 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 src/uxbox/ui/auth.cljs

diff --git a/src/uxbox/ui/auth.cljs b/src/uxbox/ui/auth.cljs
new file mode 100644
index 0000000000..1255e7cfdd
--- /dev/null
+++ b/src/uxbox/ui/auth.cljs
@@ -0,0 +1,52 @@
+(ns uxbox.ui.auth
+  (:require [sablono.core :as html :refer-macros [html]]
+            [cats.labs.lens :as l]
+            [rum.core :as rum]
+            [uxbox.router :as r]
+            [uxbox.state :as s]
+            [uxbox.rstore :as rs]
+            [uxbox.data.auth :as da]
+            [uxbox.ui.icons :as i]
+            [uxbox.ui.navigation :as nav]
+            [uxbox.ui.mixins :as mx]))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Login
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn- login-render
+  [own local]
+  (letfn [(on-submit []
+            (rs/emit! (da/login {:username "cirilla"
+                                 :password "secret"})))]
+    (html
+     [:div.login
+      [:div.login-body
+       [:a i/logo]
+       [:div.login-content
+        [:input.input-text
+         {:name "email"
+          :placeholder "Email or Username"
+          :type "text"}]
+        [:input.input-text
+         {:name "password"
+          :placeholder "Password"
+          :type "password"}]
+        #_[:div.input-checkbox.check-primary
+         [:input#checkbox1 {:value "1"
+                            :type "checkbox"}]
+         [:label {:for "checkbox1"} "Keep Me Signed in"]]
+        [:input.btn-primary
+         {:name "login"
+          :value "Continue"
+          :type "submit"
+          :on-click on-submit}]
+        [:div.login-links
+         [:a {:on-click #(r/go :auth/recover-password)} "Forgot your password?"]
+         [:a {:on-click #(r/go :auth/register)} "Don't have an account?"]]]]])))
+
+(def ^:const login
+  (mx/component
+   {:render #(login-render % (:rum/local %))
+    :name "login"
+    :mixins [(mx/local)]}))