Add "Sign in" button with AsyncTask doing the work.

1 files changed, 36 insertions, 4 deletions

diff --git a/src/clojure/io/cons/carddav_sync/authenticator_activity.clj b/src/clojure/io/cons/carddav_sync/authenticator_activity.clj
index 8956b26..1c8535a 100644
--- a/src/clojure/io/cons/carddav_sync/authenticator_activity.clj
+++ b/src/clojure/io/cons/carddav_sync/authenticator_activity.clj
@@ -1,5 +1,6 @@
 (ns io.cons.carddav_sync.authenticator_activity
-  (:use [neko.activity :only [defactivity set-content-view!]]
+  (:use io.cons.carddav_sync.log
+        [neko.activity :only [defactivity set-content-view!]]
         [neko.resource :only [get-resource]]
         [neko.threading :only [on-ui]]
         [neko.ui :only [make-ui]]
@@ -10,6 +11,32 @@
    :extends android.app.Activity
    :exposes-methods {onCreate superOnCreate}))
 
+(gen-class
+  :name io.cons.carddav_sync.login_task
+  :extends android.os.AsyncTask
+  :prefix "login-")
+
+(defn login-onPreExecute
+  [this]
+  (log-i "onPreExecute"))
+
+(defn login-doInBackground
+  [this args]
+  (let [[user password url] args]
+    (log-i (str "doInBackground " user " " password " " url))))
+
+(declare ^android.widget.EditText user)
+(declare ^android.widget.EditText password)
+(declare ^android.widget.EditText url)
+
+(defn login
+  [_]
+  (let [user (.toString (.getText user))
+        password (.toString (.getText password))
+        url (.toString (.getText url))]
+    (.execute (io.cons.carddav_sync.login_task.)
+              (into-array Object [user password url]))))
+
 (defelement :frame-layout
             :classname android.widget.FrameLayout
             :inherits :view-group)
@@ -25,13 +52,18 @@
    (set-content-view! this
     (make-ui [:scroll-view {}
               [:linear-layout {:orientation :vertical}
-               [:edit-text {:hint (get-resource :string :prompt-user)}]
-               [:edit-text {:hint (get-resource :string :prompt-password)
+               [:edit-text {:def 'io.cons.carddav_sync.authenticator_activity/user
+                            :hint (get-resource :string :prompt-user)}]
+               [:edit-text {:def 'io.cons.carddav_sync.authenticator_activity/password
+                            :hint (get-resource :string :prompt-password)
                             :input-type
                             (bit-or InputType/TYPE_CLASS_TEXT
                                     InputType/TYPE_TEXT_VARIATION_PASSWORD)}]
-               [:edit-text {:hint (get-resource :string :prompt-url)
+               [:edit-text {:def 'io.cons.carddav_sync.authenticator_activity/url
+                            :hint (get-resource :string :prompt-url)
                             :input-type
                             (bit-or InputType/TYPE_CLASS_TEXT
                                     InputType/TYPE_TEXT_VARIATION_URI)}]
+               [:button {:text (get-resource :string :button-sign-in)
+                         :on-click login}]
                ]]))))