blob: 1c8535aebdfaad40c86cd942d27f306059293d29 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
(ns io.cons.carddav_sync.authenticator_activity
(: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]]
[neko.ui.mapping :only [defelement]])
(:import android.text.InputType
android.widget.LinearLayout)
(:gen-class
: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)
(defelement :scroll-view
:classname android.widget.ScrollView
:inherits :frame-layout)
(defn -onCreate
[this savedInstanceState]
(.superOnCreate this savedInstanceState)
(on-ui
(set-content-view! this
(make-ui [:scroll-view {}
[:linear-layout {:orientation :vertical}
[: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 {: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}]
]]))))
|
