-
Notifications
You must be signed in to change notification settings - Fork 2
/
toolbar.opa
128 lines (107 loc) · 3.02 KB
/
toolbar.opa
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
/*
* Twopenny. (C) MLstate - 2011
* @author Adam Koprowski
**/
package mlstate.twopenny
import widgets.{loginbox, switch}
import components.login
type Toolbar.state = option(User.ref)
type Login.credentials = option((string, string))
type Login.config = CLogin.config(Login.credentials, Toolbar.state, Toolbar.state)
type Login.component = CLogin.t(Login.credentials, Toolbar.state, Toolbar.state)
Toolbar =
dom_id = "login"
sign_in_switch_id = "{dom_id}_sis"
login_box_id = "{dom_id}_lb"
{{
@private guest_state : Toolbar.state =
none
@publish @server authenticate(cred : Login.credentials, state : Toolbar.state)
: option(Toolbar.state) =
do Log.debug("[LOGIN]", "authentication: [{cred}]")
match cred with
| {none} -> none
| {some=(login, passwd)} ->
do jlog("Authenticating with [{login}, {passwd}]")
user_ref = User.mk_ref(login)
res =
match User.get(user_ref) with
| {none} -> none
| {some=user} ->
passwd = User.mk_passwd(passwd)
if passwd == user.passwd then
some(some(user_ref))
else
none
do jlog("Authenticating result: {res}")
res
@private login_conf : Login.config =
CLogin.default_config(Random.string(8), authenticate)
login_btn_cfg = WButton.default_config
login : Login.component =
CLogin.make(guest_state, login_conf)
login_box() =
btn_txt = "Register"
onclick = ({click}, (_ -> void))
signup = WButton.html(login_btn_cfg, Random.string(8), [onclick], <>{btn_txt}</>)
<span id=#{login_box_id} class=loginbox>
{CLogin.html(login)}
<span class="signup">
Don't have an account yet? {signup}
</>
</>
@client login_switch_btn(on, action) =
control = if on then "↑" else "↓"
btn_txt = "Sign in/up {control}"
onclick = ({click}, action)
xhtml = WButton.html(login_btn_cfg, Random.string(8), [onclick], <>{btn_txt}</>)
update_dom = if on then Dom.show else Dom.hide
do update_dom(#{login_box_id})
{ update_xhtml=xhtml }
login_switch() =
cfg : WSwitch.config =
{
get_switch_on(_, action, _) = login_switch_btn(true, action)
get_switch_off(_, action, _) = login_switch_btn(false, action)
}
WSwitch.edit(cfg, sign_in_switch_id, (_ -> void), false)
html() : xhtml =
<div id=#toolbar_container>
<div id=#toolbar>
<div id=#signin>
{login_switch()}
{login_box()}
</>
</>
</>
}}
toolbar_css = css
td{}
#toolbar_container {
position: fixed;
top: 0px;
overflow: hidden;
width: 100%;
height: 30px;
z-index: 9999;
border: 1px dotted ;
border-top: none;
background: #666;
}
#toolbar {
width: 600px;
margin: auto;
}
#signin {
float: right;
}
.loginbox {
position: fixed;
top: 30px;
background: #666;
border: 1px dotted black;
border-top: none;
padding: 12px;
border-bottom-left-radius: 8px;
border-bottom-right-radius: 8px;
}